Program Number BO6-170RQ: 


COMMON LINE PRINTER 
TEST PROGRAM 


Consists of: 


Test Program Description BO6-170M95R02A15 
Test Program Listing 06-170M96 RO2A13 
Test Tape 06-170R02M17 

RO3 Patch Information Sheet i/ii 


Copyright () 1975 by Perkin-Elmer Corporation Printed in U.S.A. April 1978 


RO3 PATCH INFORMATION 


Patch as follows: 


LOC OLD DATA NEW DATA 
EEC ROD A24 
143¢ D300 D3B0 
1448 C500 C5B0 
1488 C500 C5B0 
177A OCB8 1876 


This patch is incorporated in object 06-170R02.1 on 
multi-media packages. 


B06-170 RO3 4/78 : i/fii 


B06-170RO02A15 


April 1977 
COMMON LINE PRINTER TEST PROGRAM DFSCRIPTION 

Le COMMON LINE PRINTER TEST PROGRAM 

1.1 Related Documents 
Test Program Listing a 06-170M96R02A13 
Test Program Paper Tape 06-170M1L7R02 
Line Printer Programming Manual 29-448 

1.2 Test programs to be run :prior to loading this test 

For 16-Bit Processors: 
Memory Test ‘ 06-003 
Processor Test 06-106 or 
Model 50 Processor Test 06-128 or 
5/16 Processor Test Part 1 06-215 
5/16 Processor Test Part 2 06-216 
8/16 Processor Test Part 1 06-209 or 
8/16 Processor Test Part 2 06-210 
8/16E Processor Test Part 1 06-211 or 
8/16E Processor Test Part 2 06-212 

For 32-Bit Processors: 
Series 32-Processor Test Part 1 : 06-154 
Series 32-Processor Test Part 2 06-155 
Series 32-Processor Test Part 3 06-178 
Series 32 Memory Test 06-156 

~Other Test Programs: 
Teletype Basic Confidence Test 06-004 
Common CRT Test 06-146 
Common Current Loop Interface Test 06-184 
Common Carousel 300 Test . 06-183 


Series 32-Processor Test Part 4 . 06-195 
2. PURPOSE OF TEST 
The Common Line Printer Test Program checks the Line Printer and its 


associated Interface. The following six tests are provided to check 
specific functions of the Line Printer: 


Test 


Test 


Test 


Test 


Test 


The Disarm and Disable functions are testea by printing a line for 
each function. 


1 
The desired character is repeatedly sent to the Line Printer until 


end of line. This test allows the service engineer to mechanically 
adjust the Line Printer. All ASCII characters can be sent. 


2 

The Line Printer is sent a ripple pattern, so that every character 
is printed in every print position. This checks the print func- 
tions. : 


3 


The alternating ASCII characters U (X'55') and * (X'2A") are sent 
to the Line Printer to form a checkerboard pattern. 


4 

The Paper Advance Commands and Vertical Format Unit are tested. 

5 

This Write Block test does not produce any printout. However, the 


SPACE character is repeatedly presented to the Interface to aid in 
troubleshooting. 


3. MINIMUM HARDWARE REQUIRED 


The following hardware is required: 


-optoeoeernn smears A te tena SA th ta afte ice testes wn AAR eG Oct RGN SL, 


Processor - Model 7/16 Basic (or equivalent) or 
Model 7/32 (or equivalent) 


Minimum Memory - 16K Bytes 
Console Input Device (see Appendix 1) 


Teletype or CRT on TTY Interface, CRT on PASLA, or Teletype or CRT 
on a Micro I/O Bus interface. . 


List Device (see Appendix 1) 


Teletype or CRT on TTY Interface, CRT on PASLA, or Line Printer. 
or Teletype or CRT on a Micro I/O Bus interface. 


Paper Tape Reader 
Teletype or High Speed Paper Tape Reader 


60 to 200 LPM Line Printer 
(M46-204) with associated Interface (M46-202) 


or 
200 LPM Line Printer (M46-207) or 
600 LPM Line Printer (M46-209) with associated Interface (M46-206). 
4. REQUIREMENTS OF MACHINE UNDER TEST 


This program assumes that the programs indicated in Section 1.2 have 
been run without detecting an error. 


The Line Printer should be strapped for device address X'62'. If 

it is different, the DEVADR option must be entered. Refer to Appendices 
2 and 3. 

5. LOADING PROCEDURES 


5.1 Test Tape Format 


Absolute, non-zoned object tape (M17) with front end boot loader. The 
test program occupies memory from X'AOO! through X'1FEC'. 


5.2 Normal Loading Procedures 


1. Manually enter the X'50' sequence shown below, into memory. 


LOCATION CONTENTS 
x'30' x'OOOO0' 
xT327 x'0000' 
X'34' = x'0000' 
x'36' x'0005' 
x'50' : xX'D500' 
x'52' X'OOCF' 
X'54!' X'4300' 
x'56' x'0080' 
for TTY or Carousel 35 x'78! X'0294' 
for HSPTR x'78' x'0399' 
for HSPTR/P x'78' X'1399' 
for Micro I/O Bus X'78! Xx'CO082' 


2. Place the program tape in the paper tape reader. 
3. Execute at address X'30'. 


4. When the processor halts, observe the value, displayed on the 
console display Registers Dl and D2. If it is zero, loading 
is complete; otherwise, repeat the loading procedure. 


5. Refer to Appendix 1 and set up the addresses for console input 
device and the list device. 


6. Address memory location X'AOO' in the case of a 32-bit processor. 
Address memory location X'A04' in the case of an 16-bit processor. 


7. Start program execution. Observe the following title is output 
to the list device: 


COMMON LINE PRINTER TEST 06-170R02 


6. OPERATING PROCEDURE 
6.1 Normal Testing 
The following is a list of normal testing procedures. 


1. Enter TEST 0 and RUN command. Two identical lines are output. 
Refer to Appendix 4 for successful test termination. Should 
an error occur, refer to Section 6.2. 


2. Enter Test 1, 2, 3 option to select Tests 1, 2, and 3. The 
tests are started by the RUN command. Refer to Appendix 2 
for Option/Command Input Structure. When each of these tests 
is executed, 60 lines are printed. Check the Line Printer 
printout by comparing it with the expected result shown in 
Appendix 4. Should an error occur, refer to Section 6.2. 

The test can be terminated anytime by depressing the Break 
key. For normal termination, refer to Appendix 4. 


3. Enter INTRPT 1 option followed by the RUN command. Tests 
1, 2, and 3 are run under interrupt control. 


4. Test 4 should not be run on the 02-244 Line Printer Interface. 
For 02-397 Interface (Data Printer) enter the desired PACHAR 
for paper advance. Enter TEST 4 followed by the RUN command. 
Two asterisks are output. The vertical distance between 
asterisks should be the number of lines requested to advance. 


5. Enter TEST 5 and RUN command. Space character is repeatedly 
output. This test must be terminated by depressing the 
Break key. 


6. If all the above tests run without detecting an error, normal 
testing is complete. 


6.2 Error Procedures 


Error Messages. If an error is encountered, the current test is 
aborted and the error message in the following format is printed: 


ERROR TTNN 


where 


current test number in which the error is detected 
(00 through 05) | 


TT 


NN = error number (01 through 15) 


In addition to error number, some other useful information may be 
printed. Refer to Appendix 5 for the explanation and suggested 
action. 


Troubleshooting. To test Data Printer or Centronics Line Printer, 
Tests 0,1, 2, 3, 4 (Data Printer only), and 5 should be run in 
order. 


7. PROGRAMMING NOTES 


The halfword location labeled 'PSW' contains the PSW status used in 
the test modules. This value must be changed to X'6000' if test is 
to be executed on the Model 50 Processor. _ 


APPENDIX 1 


USER DEVICE DEFINITION 


The halfword labeled 'IO' (see Program Listing) has the default 
value for teletype, CRT, or Carousel 15/30 (all on Current Loop 
Interface) as the input/output console device. If the set-up 
is different, 'IO' must be changed as follows: 


IO a Console Device Identifier List Device Identifier 


Console Device 


Identifier | Meaning 

x OL GDT/CRT on PASLA/PALM Interface, strapped 
for FDX operation at the highest baud rate. 

X'O2' TTY/GDT/CRT/Carousel 15/30/35 on TTY/Current 
Loop Interface. 

Xx'03' Reserved. Interpreted as X'02'. 

X'O4' Carousel 300 on PASLA/PALM Interface, FDX, 
highest baud rate. 

X'O5' Micro I/O Bus Interface. 

X'06'-X'FF' Reserved. Interpreted as X'02'. 


List Device 


Identifier Meaning 

Xx'OL' As above. 

X'02' As above. 

X'03' Line Printer (Data Printer or Centronics 


on Line Printer Interface). 


x'0O4' As above. 
x'O5' As above. 
X'O06'-X'FF'! As above. 


Al-1l 


Al-2 


APPENDIX 1 (Continued) 


The GDT (Graphic Display Terminal) or CRT, if used on PASLA/PALM 
Interface, should be strapped for device addresses X'10' and 
X'1ll' for Receive and Transmit sides, respectively. If the 
addresses are different, then the halfword labeled 'PASADR' (see 
the program listing) must be changed accordingly. 


The teletype or current loop interface, if used, should be 
strapped for device address X'02'. If the address is different, 
the halfword labeled 'CLIFADR' (see the Program Listing) must 
be changed. 


The line printer, if used, should be strapped for device address 
X'62'. If the address is different, the halfword labeled 'LPADR' 
(see the Program Listing) must be changed. 


The Carousel 300, if used on PASLA/PALM Interface, should be 
strapped for device address X'10' and X'1l' for Receive and 
Transmit sides, respectively. If the addresses are different, 
the halfword labeled 'C300ADR' (see the Program Listing) must 
be changed accordingly. 


The Micro I/O Bus if used should be strapped for device address 
xX'CO'. If the address is different, the halfword labeled 
MICROBUS (see the Program Listing) must be changed accordingly. 


APPENDIX 2 
OPTION/COMMAND INPUT STRUCTURE 


An asterisk (*) is output to the List Device to indicate that the 
program is awaiting an option input. Any option may be typed in 
from the Console Input Device, followed by a space and the desired 
hex value; an exception is the TEST option which accepts arguments 
separated by commas. A Carriage Return (CR) is issued to terminate 
every option/command input. An invalid option/command or value 
causes a (?) followed by a Carriage Return (CR), Line Feed (LF), 
and an asterisk (*) to occur. 


The left arrow €—) can be typed to delete the previous character; 
or a string of characters can be deleted by typing a left arrow «€—) 
for each character to be deleted. 


A2~1/A2-2 


«Hun BURSA ES SP SA PSE SPT PSS BT PT TP PESTS, SAS I AST I SP I I TS TS SN SRG I EF 


APPENDIX 3 
OPTIONS TABLE 


Option Default Value Description 


TEST 


DEVADR 


RCHAR 


PACHAR 


EXPAND 


LWIDTH 


EOLCHR 


LOOP 


CONTIN 


TEST 0,1,2,3 


X'0062' 


X'45' (ASCII E) 


X'41' 


132 


X'ODO1' 


0 


0 


ETS Se IE 


ba 


a tee drm 


Selects the test or tests to be run. 
Test followed by CR selects default 
tests. 


Specifies the physical device address 
of the Line Printer. 


Specifies the character to be printed 


in Tests 0 and 1. Any ASCII character 


from X'20' through X'7F' may be speci- 
fied. Entry is hexadecimal. 


Specifies the Paper Advance character 
used in Test 4. 
X'40° - X'77': O thru 55 lines 

: Space according to 
Channel 1 thru 8 


Specifies normal or expanded width 
characters in case of Centronics Line 
Printer. 

0 = Normal width 

1 = Expanded width 


Specifies number of characters per 
line in decimal number 2 thru 132. 
EXPAND = 1 halves number of characters 
per line. 


Specifies the end of line character/ 

characters. In the operand X'MM' or 

X'ODNN', 

MM = O1(LF),OA(LF) ,OB(VT), Or OC(FF) 

NN = Any value from X'40' thru X'7F', 
or any MM value. 


Determines the number of times each 


test module is to be run. 


Enables the user to run all selected 
test modules continuously until Break 


key returns the program to Command mode. 


Normal execution 
Continuous execution 


0 


A3-1 


Option 


INTRPT 


HALT 


NOMSG 


OPTION 


RUN 


INTLEV 


TIMVAL 


A3-2 


APPENDIX 3 (Continued) 


Default Value 


X'14D' 


Description 


Determines whether Test Modules 1, 
and 3 perform tests under Interrupt 
Control or Sense Status. 

0 = Sense status 

1. = Interrupt Control 


Causes the program to halt after print- 
ing a line in Test Modules 1, 2, and 3. 


0 = 1 and 2 

0 Print continuously 

1 Halt after printing a line. Th 
'LF' key must be depressed to 
print the next line. 


Determines whether all messages or only 


error messages will be printed. 
0 = All messages 
1. = Error messages only 


As soon as this command is entered, 


2, 


e 


all options with their current values 


are listed on the list device. 
Starts execution of selected tests. 


Specifies the Line Printer interrup 
level when the test is run ona 
32-Bit Processor. Ignored for 16-B 
Frocessors. 


Establishes a count value for a- 
1 millisecond software timeout. 
5/16 MOS 

6/16 MOS 

6/16,8/16,8/16E 750 nsec 
6/16,8/16,8/16E 1000 nsec 

7/16 Basic 

7/16 HSALU 750 nsec 

7/16 HSALU 1000 nsec 

7/32 750 nsec 

7/32 1000 nsec 

8/32 


c 


it 


am, 


APPENDIX 4 


EXPECTED RESULTS 


When the Common Line Printer Test is run as explained in Section 
6, the output on TTY or CRT should be: 


COMMON LINE PRINTER TEST 06-170R02 


*TEST 0,1,2,3 
*RUN 

TEST 00 

NO ERROR 

TEST O1 

NO ERROR 

TEST 02 

NO ERROR 

TEST 03. 

NO ERROR 

END OF TEST 
*INTRPT 1 

*RUN 

TEST 00 

NO ERROR 

TEST OL 

NO ERROR 

TEST 02 

NO ERROR 

TEST 03 

NO ERROR 

END OF TEST 
*TEST 4 (Data Printer Only) 
*RUN 

TEST 04 . 
NO ERROR 0 
END OF TEST 
STEST '5 

*RUN 


TEST 05 (Terminate test by depressing BREAK) 
* 
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APPENDIX 4 (Continued) 


The output on Line Printer by various tests should be: 


Test 0 


EEEEEEEEEEEEEEEEEEEEEEEEEEEES EEEBEEEEREEEEEEEERREEEBEREEBEEEEEEEEE 
EEEEEEEEEEBEEEEEEEEEBEEEEEEEEEZEEEEEEEEEEELEEEEEEEGEEEBEEEBEBEEEEE 


Test 1 
FEEECEEEFEERFEEEEFEEEFLEFEFCFLPEPERP oF rere EEE OP EP EEE CFE PEEP FEE F 
FEEEFFEEFECEFEEELLFEEEFPLFEOPRtEEFERPFECre pRFEEES PEE CR ERP eR EPPEFEFEFEE 
PEER EEREEECEREELPEREPEEESELOCEPERPP R(t roe er here PES rb FEE PFEerErPEree 
FEEEREELEELCEFEECEFELEFL EES LELPEEEFR Ere orrEEErPrEFREREFOEEFCEFEFEFEE 
FEEEFEEEFELEFFECCFELEFCFEFEREPEFEr Poe rere Per PrerFe Eero F er Peer rer ce 
FEE EFEERECELFEERCEFCEPCE FE PEO LER CCE tre CELRECRE PEELS TEER CREPE EEFEE 
FEEEFEEEEELELEEEEEEEEFELFLFEELERF ERR EP er CRE rFERELS REEF PFEREFOEEFrEPFFFEFEE 
CEEEFEEEEFELEFELELEE Ec ec Ft reEcELEEEFrct “rep EPFEFF EER LEFF REFER FEEFEE 
FEEErFELCFEEEFELCECEEEEFPCFOEPCR‘ErCFERer ret rere rCEEPFREEPFEEPPFEEET OC CECFEFEE 
FEEERFEELEEEEEELELEFEEEFLFOCF ECL PEEErF Ror pe EE EFrreerreercEe ck EFEFEE 
FEEEEEEEEELCEFEEEEEEEEFEEEFEEEFECELFEF 8 oF er EEECEFECFEEFC EET SCE EFEFEE 
FEFEEEELERLEEEEEEEEEEFEFRF EEE EERECP Pt ree Leer ere Fr CEPR EES PEEP EFEE 
FEEEREERCELLEFERELEELEFLEET eC EFEEEErEEr fr EECEEEEEEF LEP TEE SEE EF EECEE 
EFEEFEERRCE EF CELL eEEFCE RF Ere FEEL Pie: + er RF CEEP PEEP PEEPF EES TOP EFEFEe 
FEEEREEECE LEER ELELFEEED LE ErEEeFPrEEErPELrrEePreEEEere ts Eete Cee rer re eres 
FEFEFEEEFEEEFFEELFEERCeE CRE rPreERPPe one ene oR EEC PPE FEES TEECCERFCREFEE 


Test 2 66 characters/line 


tMHSGE (EH em eA SOLE SHSFTAYS Fad PAAECEP ER HT UKL* SOP RSTUYWXY ZEON IAC DAE 
HHS (Datee STILE RYSAIOFE SC z>PAAY COLE CHT INEMMOPQE STUVWXYZEN ISM CAABC 
REGR CVE eMC /OLASUHBTAYS FC =D PAARCHEF se TURLENGQPQRSTUVW xX YZENI*%<g ABCOL 
SMBH em e/OLAS4YSHTHI:S CED PMALCUEFG HT KL MNOPORS TUVWKYZE\ ISS AAKBCDE 
ROC PEFR HR SOLE SYSE7TEY! ECE PQGABCOLEGHITGIKEY SOP IRSTUYVWXY ZON IAC QABRCDEF 
R (d+ 0" /0U12345673892 $M a> 7GADCOERGHI hth GPUIPSTUVEXY ZL NIS<AARCOEFC 
90) tome /OLS 34507898 FCS 7PGABLUEFGHI UML tive PORSTUVWXYZE\ I< TARCHERGE 
(Det eee /UL22456 7898 <=>? BALCIEF GHIEOKE SMopeRSTIVWXY ZEN I%< > ABCOFFGHI 
PEHemo/D1P S456 7498 ECE >PAGECULEOHLUKE «1 op iRSTUWNXY ZON 14a QACNEF GHIY 
eH ew eSOLESH5E. TAI §KE>IPMANCOLEGHT KLM OPUnSTUVWXYZENI*S CMAP COEFGHIUF 
ere /O12549678698 §C=>7 DARCUEFOHMTIIKL MNoponKsTUVEXYZE\ It <a ABCIEFGHIUKL 
ePoJ0L235G567TAYS §C=E>PAALECDEFGHIUKL Mignon STUVWX YZON U7 ABCUFEFGHTUKLS 
we f0123456789s CHD 7IAARCOLEGHIUKLMNIGR UF STLiVWAYZE NI S AA COP FGHIUKUM 
SOL 34S TEDS CSP PWARCUE FE HIKE Oy ot PU XYZUN UA DAR COEF SGHIUGKLMNG 
S01 224567U98 $C => 7HABCILEGH I UKLMNOPORG TUVER XAYZON 9765, AKCUEFCH LUKLMNOF 
A1L2]34567H98 § C= D>PMABCVFEEGHI URL MNOPARS TUVWeYZ0\ 1%<5 ABCLEF GH TIUKLMNOP(C 
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Test 3 


Laelia Ue eel eee Ue ee Ue Uae Ueto tia tet tet ele eta ta Ua tiy hatte tle ae Ue U 
RUKU EU EUEUFU KURU KURU REEL REPRE Ute et etre RU ee ee LE EPEC DRL 
UU RU RUE FURL EU EUR U KU EU RUE RULE, ee RUD REDEDE UAL UE ee UU 
UU FU RU RU KURI RU EL ULL RL URLS UU ST UE LOR RUS LEE RLF 
UFKUFUEUFU FUEL EUKUFU FUEL EU UK KU KUHE Fe ee EEO RE KER RUE RU eee UU 
UKUSU*U RUF UU EUR FUER RYU RUE KU Or RU EU PURO RU REL U RL Re 
PK UPR UPR UU UU EU KU LRU RU UU RU RU UL LRU LPL UU UE LEU, 
FUSUFUFUFUFUFUFU FU FURIE RUE AU el ey UU RUE EU RU LED pS 
O*UFUFUFU FOF FU FOF FU KU FUE FU EU Ft re ee RUE FU EU FEU Ue EU 
HUFU TU FUFUFUFU EUR L EOF EL RL ELE RU : eeu*l HEU PRUE EU ELE 
UF UFUFUFU FU FU EU FU UF UU FU EU EU EU Lee RLU adie UMC eek Oe 
&U EU URURU EUR EULER TE EL UA RU AU RU Ey FURL ORL LDL ELF 
UU EUPEUFU EUR FU EU UU EU RU FU EUS ee URL RULE UF 
*UFU HU FUP LEU EU FUEL RUF EUR AL HEU ROR EUR RU ELDER 
UF UE U ELE OF UE UR UF EUF UU UFU KURU YU UE UR UU UU 
eUeUtUSU+0 * URL UFAUFK eRe ete ee ee Rte kU Reel Lee 


Test 4 


The distance between the asterisks should equal 
number of lines requested to advance. 


Test 5 No Line Printer Output 


A4-3/A4-4 


~~ RH RR BE PE EME TRS TS RN ORG ESR EAC UBD UNA WI ES CK AT TAR IE ME Hc 


Applicable 
Tests 


ALL 


1g 23 


ALL 


0,1,2,3,4 


0,1,2,3,4 


O,1,27374 


0,1,2,3,4 


T-SWV 


Error 
Condition 


ERROR TTO1 
DEV DDD 


ERROR TT02 
ERROR TTO3 
ERROR TTO4 
ERROR TTO5 
ERROR TT06 
ERROR TTO7 


STA SS 


ERROR TTO8 
STA SS 


ERROR TTO9 
STA SS 


ERROR TT10 
STA SS 


APPENDIX 5 


ERROR TABLE 


Explanation 


Incorrect device address or 
device is not in the system. 
TT = Test module number 


DDD = Address assigned to the 


Line Printer. 


Failed to receive an interrupt 
in time-out period. 


An interrupt was queued when 
the Line Printer was disarmed. 


An interrupt was generated. 
while disarmed. 


An interrupt was generatea 
while the device was disabled. 


An interrupt was not queued 
when the device was disabled. 


BSY did not drop in time out 
SS = Line Printer status 


Device unavailable 
SS = Device status 


The Paper Out condition exists. 
SS = Device status 


The Interlock condition exists. 
SS = Device status 


Suggested Action 


Check address strap on the Interface 
to ensure that it agrees with the one 
assigned to it in the test program. 


Run Test 5 to ensure the interrupt 


logic 


Check 


Check 


Check 


Check 


Check 


Check 


Check 
sense 


Check 
Lines 


works. 


interrupt logic. 
interrupt logic. 
interrupt logic. 
interrupt logic. 

the Status Data Lines. 

LP power or Status Lines. 
paper supply or Paper Out 


switch. 


Printhead mechanism or Status 


cosy 


APPENDIX 5 (CONTD) 


Applicable Error 
Tests Condition Explanation Suggested Action 
0,1,2,3,4 ERROR TT11 Only the Examine bit is set. Check status logic. 
STA SS SS = Device status 
0,1,2,3,4 ERROR TT12 The Paper Out bit did not set. Check status logic. 
STA SS Examine bit. 
SS = Device status 
0,1,2,3,4 ERROR TT13 The Interlock bit did not set. Check status logic. 
STA SS Examine bit. 
SS = Device status 
0,1,2,3,4 ERROR TT14 Non-relevant status bit is set. Check data lines. 
STA SS SS = Device status 
0,1,2,3,4 ERROR TT15 Interrupt received when only BSY Check data lines. 
STA SS bit is set. 
SS = Device status 
ALL ERROR TTFN Spurious interrupt received. 


DEV DDD STA N = 1 for arithmetic (32-bit) 

SS PSW PPPpP fixed/point arithmetic (16-bit) 

LOC LLLL fault interrupt. 
N = 2 for illegal instruction 
interrupt. 
N = 3 for machine malfunction 
interrupt. 
N = 4 for unsolicited immediate 
interrupt. . 
N = 5 for relocation/protection 
(32-bit) /floating-point divide 
fault (16-bit) 
N = 6 for device interrupt in wrong 
interrupt level (32-Bit) 
DDD & SS = Interrupting device address 
and status received in case of 4 above. 
PPPP = current PSW when an interrupt 
is sensed (least significant 16 bits 
for 32-bit m/c) 
LLLL = Current location when an interrupt 
is sensed (least significant 16 bits 
for 32-bit m/c)/ 


COMMON BENE PRINTER Tes? SSar Tanrehie ars 


PROG= ‘CLPTO2 


ASSEMBLED BY 


PAGE i 


10252341 


CAL 03- -066R04- 01 (32- BIT) 


OR ER POS, Cone ese Ce Pee eee eee Nw e nen ebro foe toe fee 2 


#*#96170001 
CROSS 
WIDTH 120 
FARGT 16 


TEST 
TEST 


TEST 


TEST 


TEST 


TEST 


6. 


x * # OK kK KE KK K KE K€ KEK KK KK RK KK KE K 


**xETPE 


COPYRIGHT INTERDATA, INCe 


EQU 


SR A See Pe AR RE Ce ES ee BOR Na 


JUNE +1977 


THES PROGRAM USES MODEL 7/16 BASIC INSTRUCTION SET 


THIS PROGRAM TESTS THE LINE PRINTED ANTEREACE AND 
ASSOCIATED PRINTERS. : 


SIx TESTS ARE PROVIDED: 


- THE OISABLE AND DISARM LOGIC IS TESTED. 
- THE PRINTER IS SENT AND PRINTS ONE 
CHARACTER CONTINUOUSLY. 

2 = THE PRINTER PRINTS EVERY CHARACTER IN 
EVERY PRINT POSITION, 

3 - THE PRINTER IS SENT AND PRINTS THE 
CHARACTER *U* ALTERNATED WITH ITS 
COMPLEMENT tx*, 

4 = THE PAPER ADVANCE COMMANDS AND VERTICAL 
FORMAT UNIT ARE TESTED. 

5 = REPETITIVE CHARACTERS ARE PRESENTED TO 

THE PRINTER INTERFACE. 


0 
1 


LOADING INSTRUCTIONS : 


MANUALLY ENTER THE *50 SEQUENCE?. 

PLACE THE TEST TAPE IN TAPE READER. 

ADDRESS xX*50" & DEPRESS RUN/EXE. 

WHEN THE PROCESSOR HALTS+ OBSERVE THAT 

THE LOC DISPLAYED IN DISPLAY REGISTERS 

Dl & v2 IS ZERO, IF NOT REPEAT STEPS 1-3. 

SET UP TEST CONSTANTS IF NECESSARY. REFER 

TO TEST PROGRAM DESCRIPTION FOR SETTING UP 

OF THE 170 DEVICE(S) IDENTIFIER. 

START AT X*QA00* FOR 32-SIT PROCESSOR. 
X*OA04" FOR 16-BIT PROCESSOR. 


Eau 
Eau 
EQU 
FQU 
EQU 
EQu 


OnNFrane oo 


sn 


a ee ee | 


-CLPUDO1B 


cLP00020 
cLP00030 
CLPGO040 
CcLP00060 
cLP00070 
CLPO0080 
cipoo0sa 
CLp00100 
cL PO0110 
CLP00120 
cLpo00130 


~CEPOOL4O 


CLP00150 
cLPeo0160 


€LP00170 


cLP00180 
cLP00190 
ciPp00200 
CLP00210 
CLP00220 
cLP90e30 
cLpoo240 
cie00250 
CLPoo260 
CLP00270 
CLPO00280 
cLP00290 
cLp00300 
CLp003510 
cLPeoas2e 
CLP00330 
CLP00340 
CLP00350 
CLPO0366 
cLPe00370 
CLP00380 
CLP00390 
CLP00400 
CcLP90410 
cCLP00420 
CLP00430 
CLPO0440 
CLP00450 
CLP00460 
CLPO0470 
CLPO00480 
CLPO0490 


-€4,P00500 


CLP00510 
cLpoo520 


-€4.P00530 


CLPO0540 


aeieeieaek 


er: | 


f; COMMON LINE PRINTER TEST 06°170M96R02A13 PAGE 2 10352344 09/13/77 
€ 0000 0007 56 R7 EQU 7 CLP00560 
0000 0008 57 R8 Eau 8 cLp00570 
shat interns abs Zea. 2 ae ~6006--6669- a2 . 58 RO £au 9g s ; : ig: 24% feet siete: od om See . Ake ot CLP OE586- 
4 0000 OO0A 59 R10 Eau 10 cLP00590 
0000 0008 60 R11 eau 11 cLeoo600 
niga Wire 0008- 680€- 61 R12 - QU 12 ie GS et ~ Ct Peeeré 
¢ 0000 0000 62 R13 EQU 13 CLP00620 
0000 OUVOE 63 R14 EQU 14 cLp00630 
oF GO08 - BOCE 64 RET £QuU 14 ee a ‘CLPO0640 
€ aq000 OO00F 65 R15 EQuU i5 cLPO00650 
0000 GOOF 66 LINK EaQu 15 CLP00660 
67 * - CLPO0670 
( 68 »* BOOTLOADER WITH CHKSUM cLp00680 
69 * CLP00690 
Le eo POGER i 70 ORG Kaos 2d . CLEYUTOS 
ri 0080 2421 71 LIS R2el1 CLP00710 
0082 2303 72 BS BooT cup00720 
0834 1008 73 DC Z(PSWSAVE) CURRENT PS SAVE POINTER(32<8rT M/C) CLP90730 
r 0086 1010 74 oc Z(RSAVE) REGISTER SAVE POINTER(32-BIT M/C) CLPOO740 
0088 4020 0022 75 BOOT STH R2eX#22" REGISTER SAVE POINTER(16=<BIT M/C) cLP00750 
ausc C&10 dA00 76 LHI R1eORIGINY Rt = ADR( FIRST BYTE OF TEST PROG ) CLPO0760 
rt O855 C836 iCAT 77 LHI R3+LNZB RZ = ADR( LAST NON-ZERO BYTE ) CLPV0770 
0094 C860 0000 78 MN LHI R610 R6 = CHKSUM BYTE = X*N' cLP00780 
0098 0346 0078 79 LB R4eX*754 INPUT DEV ADR CLPO0790 
( o0gsc DE4¢ 9079 80 oc R4eX*79* cLP00800 
o00ad 9D45 81 LEADER SSR R4eR5 cLp00610 
G0a2 2091 82 BTYBS Sei OuU.BSY cL pooso0 
ri ooA4 9B45 83 RDR R4eR5 CLP00830 
QOA6 0855 Bu LDAR R5eR5 cLeo0s4o 
OGAa 2234 85 Bzs LEADER IGNORE LEADER cLPo0850 
( OOAA D251 0000 86 LOAD STB R5+O0(R1) STORE 1ST NON-ZERO & SUBSEQUENT BYTE CLP00860 
duAe 0351 0000 a7 LB R590{(R1) RELOAD DATA BYTE TO CLPG0870 
00B2 0765 a8 XAR R6sR5 GENERATE CHKSUM CcLP00880 
( 0084 S481 ag EXBR RAeR1 CLP00890 
0036 39828 90 WHR R2eR8B DISPLAY MEMORY ADDRESS cLPoo900 
0029 3045 51 SSR R4eR5 CLP00910 
( 0034 2091 92 BT8s 9.1 DueBsY CLP00920 
OURC 9B45 93 RDR R4eR5 CLPU0930 
O05E C110 OOAA 94 RXLE RieLOAD LOAD TILL LAST BYTE CLPO00940 
( o0c2 9486 95 EXBR RB«RG CLP00950 
ooc4 9828 96 WHR R2eRB FINAL CHKSUM ‘CLP00960 
oGC6 2478 97 LOWT LIS R728 cLP00970 
( 00C8 917C¢ 92 SLLS R712 R7 = X*8000° CLP00980 
UGCA 9557 393 EPSR R59R7 HALT PROCESSOR, cCLPGOo990 
voce 2203 100 88 LOWT CLP¥1000 


C 


1 


( 


~ —~QOCE. 


OA00 


~ OOH - 


DA04 
OAGB 


BADE 


4300 
9060 
4300 

4300 
» AFOG.. 


0450 


OA04 


OA5E 


0462- 


OA4E 


EXEC = ETPE ROSP3 


ORIGINI 
ORIGING 


ORIGINS 
ORIGING 


rae) 
PASLADR 
CLIFADR 
LPADR 
C300ADR 
4TCROBUS 


Id = 


+t ee RH HH 


* 
START1 


START2 


COMMON LINE PRINTER TEST 06°170496R02A13 


CAROUSEL 


-ORG . Xt Aoge 
B STARTL 
EQU * 
EFZ ADC=2 
B START2 
B STARTS 
B STARTS 
ELSE 
B START3 
B START3 
8 START3 
ENDC 
CONSTANTS 
oc x?0202° 
bc x11011° 
pc x'0202¢ 
oc x*6262? 
oc xe1l01ie 
BC x¢cocor 
ocx 0 
0101 FOR CRT ON PASLA 
0202 FOR TELETYPE, 
XXQ03 FOR LINE PRINTER 
G404 FOR CAROUSEL 300 
0505 FOR MICROBUS 
ac x?24Q° 
DCX 0 
ocx 7OFO 
DCX 30F9 
dCX 0 
DCX 0 
OCX Q 
DCX 0 
ocx 0 
fe ee 
XAR R1LTeR1 
STH R1eX'308 
LH R2»PSwWeo 
STH R2eX*32F 
IFZ ANnC-2 
LCS Reel 
STH R2e80N32 
838 ST 
XAR R1eR1 
STH Ri»M40032 
LH R1»PSw2 
ENDC 
R2eSTART 


ST 
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START HERE FOR 32-BIT PROCESSOR 


START HERE FOR 16-BIT PROCESSOR 
SPECIAL 32=BIT PROCESSOR START 


SPECIAL START FOR 32 SIT PROCESSOR 


* 


I/O DEVICE(S) IDENTIFIER 

PASLA/PALM READ/WRITE ADDRESSES 
CURRENT LOOP INTERFACE R/W ADDRESSES 
LINE PRINTER ADDRESS 

CAROUSEL 300/PASLA ADDRESSES 
MICROBUS ADDRESS 

PROVISION FOR SPECIAL DEVICE 


15730 


CONSTANT FOR 1 MS DELAY(X'C8*- 40070) 
RESERVED 
PSW USED 
PSW USED 
RESERVED 
RESERVED 
RESERVED 
RESERVED 
RESERVED 


IN PROGRAM 
IN EXEC 


DISABLE INT AT PROCESSOR LEVEL 


SELECT REG SET 15 


SET MODEL 32 PROCESSOR FLAG 


RESET MOO 32 PROCESSOR FLAG 


CLP01020 
CLP01030 
cLpo0104a 
CLPO1L0590 
cLp01060 
CLP01070 
cLP01080 
cLPo1090 
cLPO01io0 
€tLA01110 
CLP01120 
CLP01130 


-€CLPOLILO. . 


cLp01150 
cLP01160 
CLP911706 
cLPe01180 
CLP01190 
cLe01290 
cLe01210 
CLP01220 
cLp01230 
cLP01240 
cLe01250 
cLP01260 


CLP01270 


CLP01280 
cLP01290 
CLP01300 
CLP01310 
CLP01320 
CLPV1330 
CLPU1340 
CLPU1350 
CLPU136U 
cLpu1370 
CLP1380 
cLp01390 
CLpv1400 
CLP01410 
CLP01420 
CLP01430 
CLP01440 
CLP01450 
CLP01460 
CLP01470 
CLP01480 
CLPU1490 
CLPV1500 
CLP01510 
CLP01520 
CLP01530 
CLP01540 


CLP01550 


. COMMON LINE PRINTER TEST 066°170496R02A13 PAGE 3 10252346 09/13/77 < 
- 3p 
€ EXEC ETPE ROSP3 C 
ee me AOE ce ee “4 192 ORG .xrtaA0gr : Oe es de CLPO01020 is, BB er alent cs 
c 0A00 4300 0A30 103 oORIGINI 8B STARTL START HERE FOR 32-BIT PROCESSOR cLPO01030 
9000 O0A04 104 oORIGIN2 Eau * CLP01040 € 
SMR wh la wh ee QAD4 ge Bh ies at ad @sitiaible i i 195 LFZ ADC#-2 Et dS cts ots C€LP01050 we xbisicce 
C OA04 4300 OA4E 106 B START2 START HERE FOR 16-BIT PROCESSOR CLP01060 
0A08 4300 OASE la7 ORIGINS 8 START3 SPECIAL 32=BIT PROCESSOR START CLP01070 ‘4 
wee ee AOE 4300. OMEGA - lea ORIGINS B START4 a4 ie -CLP01080 iste: ty Sates 
€ 109 ELSE cLP01090 ' 
110 B START3 SPECIAL STaRT FOR 32 8I1T PROCESSOR CLPO1100 € 
111 8 START3 CLP01119 ate Hing jehae 
( 112 8 START3 CLP01120 C 
113 EnNCC cLip01130 
semaine a AN te ans Los G27 | sale tea GRE pate: o : Lig x : ; cel tien avian: 1 . ~ coe CLPHEIGG. . 3 eet (eb ae ae 
¢ , 115 Kee reece nn we ee ee ee nen eee eee cLPe01150 C 
116 «* TEST CONSTANTS * cLp01160 
117 * CLPO1170 a 
Fi 0A10 0202 118 I9 pc x'd2oar I/O DEVICE(S) IDENTIFIER ciPp011390 ( 
0A12 1011 119 PASLADR OC x*1011° PASLA/PALM READ/ARITE ADDRESSES CLPO1190 
OAL4 0202 120 cCLIFADR pc x'0202t CURRENT LOOP INTERFACE R/W ADDRESSES CLP01200 
€ OA16 6262 121 LPpADR oc X'6262" LINE PRINTER ADDRESS cLP01210 C 
0A18 1011 122 C300ADR OC x*1011° CAROUSEL 300/PASLA ADDRESSES CLP01220 
QALA coca 123 TCRORUS DC x?cocor MICROBUS ADDRESS cLe01230 = 
( MAIC O0UD 124 BCX 0 PROVISION FOR SPECIAL DEVICE CLP01S40 ( 
125 «* cLe01250 
126 *x 10 = 0101 FOR CRT ON PASLA cLpe012690 ; 
( 127 « 0202 FOR TELETYPE, CAROUSEL 15730 cLPO01270 ( 
128 * XX03 FOR LINE PRINTER . cLP612380 
1239 x 0404 FOR CAROUSEL 300 cLp01290 
( 13006—Cx 0505 FOR SICROBUS : cLPe01306 ( 
131 «+ CLPO1310 
GALE 0146 132 TIME pc xt14ge CONSTANT FOR 1 MS DELAY(X'C8&*~MOD70} CLPO1329 - 
( OA20 uodo 133 DoCx 9 RESERVED CLPYU1330 ( 
0A22 70F0 1324 PSwW ocx 7OFO PSW USED IN PROGRAM CLPU1340 
OA? 30F0 135 PSswWe DCX 30F9 PSW USED IN EXEC CLPU1350 
r OA26 oouo 136 DCX ] RESERVED CLPU136u ( 
OA2R voug 137 DCX a RESERVED CLPU1370 
DADA 0009 138 DCX Q RESERVED CLPU1380 
( OA2C ouuod 139 ocx 0 RESERVED cLPp01390 ( 
DAZE uuUuOd 140 pcx 0 RESERVED CLPY¥1400 
1. eee CLPO1410 
r 142) + cLeo1420 ( 
0A30 U7il 143 STARTI XAR RieR1 CLP01430 
0432 4010 9030 144 STH R1ieX'308 ; DISABLE INT AT PROCESSOR LEVEL CLPO14406 
( GA36 4820 0424 145 LH R2»PSwe2 CLPO01456 
OA3ZA 4020 0032 146 STH R2eX#30F SELECT REG SET 15 CLPO1460 
GAZE 147 IF2Z AnC-2 CLPO01470 
( OASZE 2521 1434 LCS R201 CL P01480 ( 
OA4uO 4020 1642 149 STH R2e6On32 SET MODEL 32 PROCESSOR FLAG CLPU1490 
OAG4 2366 150 BS ST CLP015060 
( OA4G 0711 151. START2 XAR R1eR1 CLP01510 ( 
OA4S 4010 1642 152 STH Ri»40032 RESET “OD 32 PROCESSOR FLAG cLp01520 
oA4uc 4B10 gA24 153 Li R1isPSwe cLp01530 za 
( OA50 154 ENDC CLP01540 ( 


OAGE 155 ST LHI R2eSTART cLP01550 


EOMnOl ENE een TESt Go-T TONSEROZALS PAGE 


EXEC - ETPE. RO3P3 


OA54 4010-8034 - 


0A58 4020 GO36 


OASC 0000 

OASE 4300 OA3Z0 
0AG2 

8A62 4300 8A46 
OAG66 


0A66 «©0310 OA10 
OAGA D320 OA11 
OAGE 2.436 

OA70 -OS13-. - =. 


OAT2 2182 
OA74 2412 
QA76 0523 


0A78 2182 
OATA 2420 
GATC D210 AAO 
ABS D220 JALL 
0A84 0362 1674 
OARS 4060 1658 
OABC 0866 
DABE 2336 
9a90 9121 
0A92 0302 OA11 
QA96 DEQ? 1668 


GAIA 41FO 1334 
OA9E 9310 
OAAO 9111 
OAL 4831 0A10 
OAAS 4030 165A 
OAAA 4821 165C 
OAAE 4U20 145C 
OAB2 4821 1668 
OABG6 4020 1668 
OABA 9011 
QABC D341 1674 
OACO D240 1674 
OACY 4040 1656 
OACS 0844 
OACA 23353 
BACC 9422 
QACE GE3a 


OADO 41F0 1390 
Oan4 2400 

Oane 4000 1684 
DADA 41FO0 1104 
OADE C850 1C7E 
OAE2 41F0 1154 


‘STH RAKE Sys 
STH R2eX*36? 


ocx 0 

. - ae 24 

START3 B START1 
IFZ Anc-2 

STARTS B STARTF2 
ENDC 

* 

START LB R1:I0 
LB R2eIO41 
LIs R396 


CLHR RieR3Z 
BLS I0e0K1i 
LIs R12 


19e0K1 CLHR R2eR3S 
BLS I0-OK2 
LIS R2e2 


IQ20K2 STB RieIO 
STB R2eIO+1 
LB R6*CONRG2S(R2) 
STH RGEePASFLG2 
LOAR R6eR6 
32S I0¢0K3 
SLALS Reed 


Lo RO*IO+1(R2) 
ac RO»CON2NDI(R2) 
* 
TO2O0K3 BAL LINK,SETKB 
LBR R1eRO 
SLHLS Riel 
LH R3*IO(R1) 
STH R3eCONADR 
LH R2eCONRD(R1) 
STH R2sCONRO 
LH R2*CON2ND(R1) 


STH R2sCON2ND 
SRHLS) Riel 


LB R4sCONRQ@2S(R1) 
STB R4¥sCONRG2S 

STH R4+PASFLG 

LDAR R4+R4 

BFFS 343 


EXBR R2*R2 
ocR R3sR2 


BAL LINKeLCORE 
LIS R010 

STH ROeWASDU 
BAL LINK eCRLE 
LHI R5SeTITLE 
BAL ardent 


RoeP@neettersc eww cece ene meawos ee =o 


x Serene INPUT ROUTINE 


4 10:52:48 DOES OTT 


II INT NEW PSW LOC 
TAKE AN TELEGAL INSTRUCTION INT 


INSERT SPECIAL ROUTINE HERE 


INSERT SPECIAL ROUTINE HERE 


SET 1/0 IBENTIFIERS 
TOENTIETER CAN BE 102+3:4:5 


BRANCH IF KB “IDENTIFIER OK 
OTHERWISE FORCE IT TO BE TTY 


SAME TEST FOR LIST DEVICE 


REESTABLISH VALUES 


SET PASLA FLAG (LIST DEVICE) 


SKIP IF NOT PASLA 


ISSUE 2ND COMMAND (LIST DEVICE) 
ESTABLISH KEYBOARD DEVICE 
(RL) = 1020405 

(RL) = 2e4s6ed 

SET UP CONSOLE DEVICE ADDRESS 
SET UP R/W COMMANDS 

2ND CMD; ENABLE READ cMO 
CONSOLE REQUEST To SEND 

SET PASLA FLAG (CONSOLE) 

SKIP IF NOT PASLA 

ISSUE 2ND COMMAND (CONSOLE) 
SET UP LOW CORE 


RESET °DEVICE UNAVATLABLE' FLAG 


PRINT TEST PROGRAM TITLE 


--CLPOLSE0- 


cLp01570 
CLP01580 
€LP615986 
CLPG1600 
cLP01610 
‘€LP01620 
CLP01630 
CLP01640 
CLP01650 
CLP01660 
CLP01670 
“CLP 01680 
cLP01690 
CLP01700 
CLPO1L710 
CLP01720 
CLP01730 
CLPO174O 
cLe01750 
cLP01760 
CLPO1770 
CLec1780 
CLPO1790 
CLPU1L869 
cLPp01810 
CcLP01820 
CLPG1330 
CLPU1840 
CLP01850 
CLP01860 
CLP01870 
CLPUG13880 
cLP01890 
cLPU1900 
cLP01910 
CLPO01920 
CLP01930 
CLP01940 
CLPU1950 
CLP01960 
CLP01970 
CLP91980 
CL?P01990 
cLpd2000 
CLPO2010 
CLPU2020 
CLPG2030 
CLPU2ZD4O 
CLPO2050 
cLPU2060 
CLPU2G7G 
cLpu2080 
cLp02090 


a oe ee rc 


COMMON LINE PRINTER TEST 06-170M96R02A13 


EXEC - ETPE ROSPS3 


o000 OAEG 


OAEG 41FoO 1104 
staat ap OO09-BAEA 
OAEA 4820 GA24 
OAEE 9512 
- OAFO - 4LFO- 1334 
OAFY 0340 1734 
CAFS 41FoO 1162 
GAFC - 2541 
OAFE 41FO 11F2 
OB02 ca8co 1288 
enn ens OBA G ----EBOG- 2029. - - 
OBOA 4000 1€48 
QB0E 4000 1CAA 
0612 4000 4CAC 
6B16 0711: 
0B18 41Fo 1254 
_081C €54o 9060 
0B20 2183 
0B22 ce4o 9020 
0826 C546 9023 
OB2A 4330 OAE6 
OB2E C540 O05F 
0B32 2139 
0B34 2711 
0B36 o21¢ 
0838 Cc&le 0020 
0B3C D2u1 1Ca8 
OB40 4300 0818 
e844 - ¢546 9005 
0B48 233C 
OB4A c540 0020 
OB4E 2339 
9850 c510 9006 
0854 038¢ 
0B56 241 1Caa 
OBSA 2611 
0B5C 4300 0818 
8B60 C810 1736 
OB6Y4 0733 
0B66 0861 
0B68 4856 0000 
OBEC Q21c 
OBG6E 4553 1CA8 
OB72 . 2333 
OB74 261C 
0B76 2209 
OB73 2632 
OB7A 2662 
OB7C 


C530 9006 


* 


OPTIN 


OPTING 


ROCHR 


ROCHARDO 


RBCHRI 


* 


x 
LOOKUP 
LOOK 


OPTION MATCH 


LHI 
XAR 
LOAR 


LOOK2 LH 


LOOKS 


BAR 
CLH 
BES 
AIS 
BS 
AIS 
AIS 
CLHI 


PAGE 


* 


LINK «CRLF 
* . 


R2ePSwo 
R1eR2 


- LINK» SETKA 


R4eAMNSG 
LINK +OUTCHR 
R41 
LINK+OUTCHR 
R12:;QUESTN 


 ROeX# 202608 


Ro.OPTBUF 
ROsOPTBUF+2 
RO eOPTBUF+4 
R1ieR1 

R15 «GETCHR 
RGeXt60# 
RDCHARO 
R4eX*oor 
RyeXtaze 
OPTIN 

R4eX* Ore 
ROCHR1 

Riel 

R12 
ROeX*208 
RQ+OPTBUF(R1) 
ROCHR 


R4eXt O08 


LOOKUP 
R4eX*oo0F 
LOOKUP 

R16 

R12 

RG: OPTSUFIRI)D 


ROUTINE 


R1sOPT 
R39R3 
R&eR1 
R5*0(R6) 
Rie 
R5+OPTBUF(R3) 
LOOKS 
R1el2 
LOOK? 
R3:2 
R602 
R376 


5 
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CReLF TO LIST DEVICE 


NO INT. REG SET 15 
ESTABLISH CONSOLE - ; 
OUTPUT AN x TO INDICATE 
COMMAND MODE ESTABLISHED 
Xt1f Fe ate a hes 


SET UP R12 FOR ERR ROUTINE 


BLANK -OUT-COMMAND BUFFER - 


WHICH WILL CONTAIN OPTION 
NASE 


CLEAR OPTBUF INDEX 
GET A CHAR IN R& 
UPPER CASE ALPHA ? 
BRANCH IF NO. 

CONVERT TO LOWER CASE 
Is It # ? 


LEFT ARROW, 


YES+ 
BUFFER UNDERFLOWS 


DECREMENT INQEX 


PRINT *?? 


Is IT crR ? 

YES+ TRY MATCH 
IS IT A BLANK? 
YES» TRY MATCH 


‘7 CHARACTERS INPUT ? 


IF YES+ ERROR 

STORE CURRENT BYTE 
BUMP BUFFER INDEX 
READ NEXT CHARACTER 


LOAD ADDRESS OF OSTION TABLE 
CLEAR BUFFER INDEX 

SET OPTION WORD INDEX 

IF MINUS: THEN NO “MATCH = ERROR 
COMPARE TO OPTBUF HW 


TRY WEXT Hw 


3 MATCHING HW FOUND ? 


UNDERLINE OR DELETE ? 


cLpo2100 
cLP02110 
cLP02120 


- CLP021390 


cLP02140 
cLPe02150 
CLPp02160 
CLP02170 
cLP0d2180 


-CLPG2190 


cLPp02200 
CLPO02210 


~-EL-PU222 0 


cLPeu22e30 
CLP02240 
CLPU2250 
CLPO2260 
CLPO2270 
ckPe22a0 
CLPO02290 
CLPO02300 
CLP823190 
CLP02320 
CLP02336 
CLPO2340 
CLPO02350 
CLP02360 
CLP02370 
CLP02380 
cLP02390 
cLpo2sao 
cLe02410 
cLeo24a0 
cLP02430 
CLPO2440 
CLPU2450 
cLP02469 
CLPO02470 
CLPO02480 
cLeo24g90 
CLP02500 
CLP02510 
cLP02520 
CL?02530 
cLP02540 
CLPO02550 
CLP02560 
CLP02570 
CLPa25a0 
cLe02590 
CLPU2600 
CLP02610 
CLP02620 
CLP02630 


pn 


COMMON LINE PRINTER TEST 06°170M96R02413 
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C EXEC - ETPE RO3P3 
C 265 * CLP02650 
0Ba2 C510 176A 266 CLHI R1sRUN RUN COMMAND 7? CLP02660 
aoa BBB6 HSS O- ODES - BEF BE RUNIT eee = 14 CL Pe2670 
C 0BBA C510 170E 268 CLHI R1+sOPTION OPTION CMD ? CLP02680 
OBB8E 4236 oCa4 269 BNE LOOK4 NO+ LOOK FURTHER CLP02690 
bas Be se ae a 270 Sessce Sneeecete Soacewe eSesLes ; - -CLpe2700 
P 271 * TO PROCESS INPUT COMMAND *OPTION® CLP02710 
0B92 4820 1766 272 LH R2eOPTION+8 CHECK FOR SPECIAL ROUTINE CLP02720 
0896 9239 273 BNZR RD LINK TO ROUTINE ECLPO2730 
c 0898 C830 1736 274 OPTRTN LHI R3eTEST RETURN HERE CLP02740 
oB9C CBEO 0C22 275 LHI R14+O0PTCMDS CLP02750 
~ os OBA - HEF E- 2204 ya 276 BAL  - LENKyCRLE (2 CEPO2 760 
C OBAG 0722 277 OPTCMD  XAR R2eR2 RESET COUNTER CLP02770 
OBAG 0342 1736 278 oOpTCMD1 LB R4sOPT(R2) TO PRINT TEST CLp02780 
OBAA 41FO 11c2 279 BAL LINK s OUTCHR CLP02790 
F OBAE 2621 280 AIS R201 CLP02800 
-0BB0 C520 0006 281 CLHI R2e6 cLp02810 
0BB4 2087 282 BLS OPTCMD1 CLP02820 
( 0836 C&#O 0020 283 LHI RueCt ¢ CLP02830 
088A 41F0 11F2 264 BAL LINK» OUTCHR OUTPUT 1 SPACE cLP02840 
OBBE 0755 285 KAR R5eR5 TO PRINT SELECTEO TEST NUMBERS CLPO2850 
( UBCO 4050 1640 286 STH R5sFIRST CLPU2860 
UBC4 4823 0006 287 LH R206(R3) FIRST TEST WORD CLP02870 
oBce ak4o 268 opTcMD2 LIS Reed START WITH TEST 0 CLP02880 
OB8CA 4040 1080 289 STH RueTEMP cLp02890 
GBCcE 40.9211 290 opTCMn3 SLHLS R201 . CLP02900 
oBpe 4380 0Co2 291 BNC OPTCMD7 CLP02910 
i 0304 4u40 1CRO 292 opTCMp4 STH R4yTEMP OPTION VALUE FOUNN, CLPG2920 
oBDa 4800 1640 293 LH ROIRST Is IT FIRST ? CLP02930 
o80c 2335 294 32S OPTCHOS CLP02940 
’ OBDE C840 002C 295 LHI R4sCtg? NO. OUTPUT COMMA CLP02950 
OBE2 4lFO 1162 296 BAL LINKsOUTCHR CLP02960 
OBE6 4OFO 1640 297 opTcmMpS sTH LINK s FIRST CLP02970 
( GBEA 0855 298 LOAR R5eR5 TEST VALUE FROM SECOND HW CLP02980 
OBEC =. 2335 299 _ azs OpTCMns NO CLP62990 
OBEE C840 0031 300 LHI R4eC*1? YES*OUTPUT ‘1! CLP03000 
OBF2 41FO 11E2 301 BAL LINKsOUTCHR CLPU3010 
UBF6 4840 1CR0 302 oPTCMD6 LH Rue TEMP RESTORE R4 cLe03020 
OBFA 0344 169¢ 303 L8 RY sHEXTAB(RY) CONVERT CLP03030 
OBFE 4G1FO 11€2 304 BAL LINKsOUTCHR OUTPUT 0-F CLP03040 
( uce? 4840 1CR0 305 opTcMn7 LH Ru» TEMP RESTORE CLPU3050 
0co6 = 2641 306 Als R4el INCREMENT TEST # CL203060 
ocos 4040 1¢AR0 307 STH Rus TEMP CLP43070 
( acoc = 540 0010 308 CLHI R4e16 CLe03080 
0C10 4286 9BCE 309 BL OPTCMDZ CLP93090 
0C14 U855 310 oPTCMD71 LODAR  RS5SeR5 DONE 7 CLP03100 
( 0C16 0235 311 BNZR R14 CLP03110 
0cis 4823 9008 312 LH R298(R3) SECOND TEST WORD cLP03120 
ocic 3—_ 2451 343 LIS RSol R5 = 1 FOR SECOND TEST HW CLP03130 
: OC1E 4300 0BCS 314 8 OPTCMD2 CLP03140 
Rig cguse teow eee occa ee ecie eons CLP03150 
316 * TO OUTPUT OTHER OPTION NAMES & VALUES CLPO3160 


( 317 * CLP03170 


: J : Wot eee 
‘ . ») 


j a re ee ne NE AN ct ne a ene oe 


COMMON LINE PRINTER TEST 06°170M96R02A13 
EXEC = ETPE RO3P3 


ece2 


41FO 1104 - 


2461 

C820 1742 
2436 - - 
D342 0000 
41FO 1162 
e621... 
27351 

2026 

c&4e 6020 
GlFO 1162 
4852 0000 
2404. -- 


41FO 108 


0300 0A10 
2701 
2130 
2661 
c56q 9014 
2189 
0766 
41FO 1254 
2740 
4330 AEG 
2643 
2036 
41FOQ 1104 
41FO 12A2 
2626 
c520 170E 
4289 6C2Cc 
4300 OAEA 


C51¢ 1736 
4350 o0CCO 


2740 
033¢C 
41EG 1030 
2740 
023C 
48E1 9008 
2352 
O1FE 
0000 OCaA0 


4061 0006 


4300 OAE6 


( ‘ 
« fi Sst ge ae = Be el hg a Se Set ge a ees) Ze ee 


PAGE 7 10252556 09/13/77 


OPTCMD8 BAL LINK +s CRLF a 
LIS Roel SET LINE COUNTER 
LHI R2eOPT+12 R2 POINTS TO THE NAME 
oPpTCMD9 {LIS R36 we tee 


OpTCMD10 LB R4eO0(R2) 
BAL = LINK QUTCHR OUTPUT OPTION NAME CHAR 
AIS =s- R20 fasta Pee ana 
SIS R31 6 CHARACTERS OUTPUT 7? 


BPS OPTCMD10 
LHI R4eCt ¢ 
BAL LINK sOUTCHR 


NO,LOOP 


OUTPUT ONE SPACE 


tH R5+O(R2) RS = OPTION VALUE 
BAL LINK, R5HEX WRITE OPTION VALUE IN HEX (4 DIGITS) 


LB ROelIO 
SIS ROel 
BNZS opTcwMp12 


CONSOLE = c€RT ? 
BRANCH: NO, 


AIS R6el INCREMENT LINE COUNTER, 

CLHI R6920 PAGE FULL 7? 

BLS opTcmni2 _ NO 

XAR R6#RE INITIALIZE LINE COUNT 
OPTCHD11 BAL LINK eGETCHR 

SIS R4e13 CR ? 

BZ OPTIN TO ACCEPT EXT COMMAND 

AIS R4es LF ? 

BNZS oPpTCMD1i1 IF YESe PRINT NEXT PAGE 
opTCmp12 BAL LINK eCRLF 


BAL LINK. TSTSRK 
AIS R2e6 
CLHI R2sOPTEND2 


EXIT IF *S8REAK* PRESSED. 


ALL PRINTI'NG OPTIONS DONE ? 


BL opTCKoS NO.LOOP FOR NEXT ONE 

B OPTIN1 TO ACCEPT NEXT COMMAND 
Ketewer em wesc esr coe roe nn we oe wenn 
LOOK4 CLHI Rie TEST 'TEST® OPTION ? 

BE TESTOP 


* TO PROCESS COMMANDS OTHER THAN "TEST*'s "*OPTION®. 
* ; 


SIs R4e13 OPT FOLLOWED BY CR ? 


BZR R12 YES, ERROR 

BAL R1i4:*OPTVAL GET OPTION VALUE IN RE 

sts R413 TERMINATES 3Y CR ? 

LH R14+8(R1) GET OPTIO®S CHECK ROUTINE ADDRESS 


BZS LOOKS 


BALR RiSeR14 LINK OPTIO% CHECK ROUTINE 


LOOK5 ESU * RETURN HERE 
STH R6+6(R1) STORE OPTION VALUE 
B OPTIN TO ACCEPT "iEXT COMMAND 
* 
ZERONE THI R6&«X"FFFE® IGNORE LS& 
BZR R15 OKAY 
BR R12 ERROR RETUaN 
* 
ADR CLHI 


R6eX*yoot 


(R6) = 10 31T DEVICE ADDRESS 


‘€LP03190 


CLP03190 
CLPUZ200 


-€LPO03216 


i 


CLP03220 
CLP03230 


- CLPOS240 


CLP03250 
CLP03260 


- ELPOZ270 


CLPO3280 
CLP03290 


ELPUSSOO. . 


CLP03310 
CLP03320 
CLPO3330 
CLP03340 
CLP03350 
CLPO3360 


CLP03370 © 


CLP03380 
CLP03390 
CLP03400 
CLP03410 
CLP03420 
CLPO3430 
CLPO3440 
cLP03450 
CLP03460 
CLP03470 
CLP03480 
cLP03490 
CLp03500 
CLPO3516 
CLP03520 
CLP03530 
CLP03540 
CLP03550 
CLP03560 
CLP03570 
CLP03580 
CLP03590 
cLP03600 
CLP03610 
CLP03620 
CLP03630 
CLPO3640 
CLPO3650 
CLP03660 
CLP03670 
cLP03680 
CLP03690 
CLP03700 


CLPO3710 


~ 


COMMON LINE PRINTER TEST 06°170M96R02A13 


EXEC - ETPE RO3P3 


884 


ocBse 


BCBS 
ocec 
OCBE 


occa 
occe2 
ucc4 


OCCR 


OCCC 
Ocn0 
ecp4 


ocns 
vcoc 
OCDE 
ocea 
Oce4 
OCE6é 
oces 
6CEC 
OCEE 
OCF 
OcFr4 
OCF6é 
OCFA 
OCFE 
Ob00 
0002 
0006 
OD0A 
ODNE 


030C 


c5é0 
028F 


BEOF 


030C 


aT4n 
2138 
4a0o 


4009. 


4800 
4000 
4300 


4850 
2470 
2480 
41E£0 
0556 
o28C 
c560 
2385 
41E0 
0673 
2306 
cBéo 
41E0 


1C3E 
L73€ 
1C40 
173E 
Q@AEG 


1C3c 


1030 


0010 


1066 


9010 
1066 


ocEO 
173C 
173E 
AEG 


0012 
1104 
DALO 
1CAF, 
114 
1882 
0026 


1686 


173E 


Keer eer eaceon wvcowwewowoeworaw= 


* TEST OPTION PROCESS ROUTINE 


* 
TESTOP 


* 
TSTOP1 


TSTOP2 


TSTOPS 


TSTOP4 


INITRET 


KEEPL 


“RIS 


R12 


R615 
R1S 
R12 


/ R413 


TSTOPL 
RO«DEFTESTS 
RO*e TEST+6 
ROWEFTESTS+2 
ROeTEST+8 
OPTIN 


R5«MAXTIST 
R70 

R90 
R14eOPTVAL 
RS5eRE 

R12 

R6e16 
TSTOP3 
R14<UNARY 
R7eR3S 
TSTOPy 
R6e16 
R14sUNARY 
RBARZ 
R4e13 
TSTOP2 
R7+TEST+6 
R8e«TEST+8 
QPTIN 


* 
LINK «CRLF 
RO«IO 
ROsIOSAVE 
LINK»CRLFE 
LINK, INIT 
* 

Ri5deR15 
R15e¢WASODU1 
RO«15 
P1eTEST+8 
Riel 
FOUND1 
R21 

KEEPL 
ROe15 


ERRORS 
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RETURN TO LOOKS: 


tR6)-= 
RETURN TO LOOKS 


"TEST® FOLLOWED BY (CR) 7? 
YESe SET TEST OPTION TO 
FIRST TEST WORD 

ALL DEFAULT TESTS IN PROGRAM 
SECOND TEST WORD 

TO ACCEPT NEXT COMMAND 


TEST BIT ACCUMULATORS 

GET OPTION VALUE IN R6 
INVALIO TEST NUMBER 
®6 < 16 ? 

NO 


GET UNARY OPERAND IN R3& 
SET CURRENT BIT 


SET CURRENT BIT 
TERMINATED BY CR ? 


STORE VALID SELECTED TESTS 


TO ACCEPT NEXT COMMAND 


RESTORE USER*S 1/0 CHOICE 


LINK USER INITIALIZATION ROUTINE 


RETURN HERE 


TO FIND HIGHEST SELECTED TEST NO, 


CHECK SECOND TEST HW 


TRY NEXT DIGIT 
INITIALIZE AGAIN 


INTERRUPT LEVEL HEX DIGIT 


- CLPO3720 


CLP03730 
CLP03740 


‘CLPO3750 


cLPe03760 
CLP03770 


CLPO37A0 


CLPO03790 
CLPO03600 
CLP03810 
CLP03820 
CLP93830 
CLP983640 
CLPOG3850 
CLP4Y3860 
cCLPs33a70 
cLPe03se0 
cCLP03890 
CLEUZSOG 
CL°03910 
CLPO03920 
CLP03930 
CLeo3940 
cCLPO3950 
CLPO3960 
CLP03970 
CLP03986 
CLPO3990 
CLPO4O000 
CLP04010 
CLPO4020 
CLP04030 
CLPO04040 
CLPv4050 
cLeU40g0 
CLP04070 
cLPe040a0 
cLP04090 
CLPO4100 
CLP04110 
CcLP04120 
CLP04130 
CLP04140 
CLP04150 
CLP04160 
cLP04170 
CLP94180 
CLPO4190 
CLPU4200 
CLPO04210 
CLPO04220 
cLp04230 
CLPO4240 


CLP04250 


( 


Shenae anaes ae a 


OD3C-. - 


oD40 
oD42 


6044. 


OD46 
0048 
OD4A 
OD4E 


EXtC - ETPE RO3P3 


4816.-173¢- 
9011 
2186 


- 2704-—- --- 


2213 
030C¢ 


CAGE 8010 - 


4000 1682 


COMMON LINE PRINTER TEST 067170M96R02A13 


KEEP2 


FOUND 


* 
* RESET 
* 


“LH Rie TEST+6 


Riel 

BcSs FOUND1+4 
sIs RO 
KEEP2 

BR R12 


~ AHT ROe16 - 


STH RO+SELTST 
TEST PARAMETERS 


XAR ROeRO 


-~§TH RO+ISETERR 


* TO FIND THE NEXT SELECTED TEST, 


* 
KEEP4 
KEEP41 


KEEP42 
KEEP43 


KEEPS 


STH RoeTOTAL 
STH ROsTOTERR 
STH RO*WASDU 
LHI R1sC*008 
STH R1eMTESTNO 
STH  —- R1eETESTNO 
STH R1ivERRNO 
BAL LINK sLCORE 


SELECTION FROM TEST 0 
XAR RO«RO 


STH RO+BTESTNO 
STH RONEXTST 


LH R2eNEXTST 
LIs ROe8 

SLHLS RO+e«12 

SRHL RO«O(R2) 
CLHI RaeX*10? 
BLS KEEP42 

NH ROrtTEST+8 
BNZS KEEPS 

BS KEEP43 

NH ROeTEST+6 
BN2ZS KEEPS 

AIS R2el 

BS KEEP41 

STH R2sBTESTNO 
LOAR R1+R2 

AIS R2el 

STH R2esNEXTST 
Lis ROe2 

LHI R2eMTESTNO 
BAL LINK eHEXASC 
LH R2eMTESTNO 


STH R2+ETESTNO 
BAL LINK+TSTBRK 
LHI R5+eTSTMSG 


CHECK FIRST. TEST HW 


RQ = FeO = TEST # 
LOOP 
TEST NOT SELECTED 


ADJUST TEST # FOR SECOND HW 
HIGHEST SELECTED TEST NUMBER 


RESET ERROR FLAG | . 


RESET TOTAL 
RESET TOTERR 
RESET WASDU 


RESET THESE FLAGS TO c00° 


SET UP LOW CORE 


RESET BINARY TEST NUMBER 


RESET WEXT TEST # 


GET NEXT TEST # 


RO = x*8oo0? 
RO NEXT TEST BIT 
NEXT TEST < 16 


LOOK AT TEST Hw 2 


LOOK AT TEST HW 1 


LOOP FOR NEXT TEST # 


CURRENT TEST # 


Rl = TEST # IN BINARY 


SET DIGITS TO PRINT 


R2 = A(MTESTNO) 


STORE TEST # IN ASCII @ MTESTNO 


STORE TEST # IN ASCII @ ETESTNO 


TEST BREAK 
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2 


CL p04260 
CLe04270 
cCLP04280 
- CLPO4290 
CLP04300 
CLP04310 
- €LPO4320 
CLP04330 
CLP04340 
- CLPOHS50 
CLP04360 
CLP94370 


CLP04390 
CLPY4400 
CLPY4410 
CLPO4420 
CLPO04430 
CLPO4446 
CLP04450 
CLPO4460 
CLP04470 
CLPO4480 
CLPO4490 
CLPU4500 
cLP04510 
CLP94520 
CLPO4530 
CLPO4540 
CLPO04550 
CLP04560 
CLP04570 
CLPO4580 
CLPO4590 
CLPO04600 
CLP046138 
CLPO4620 
CLP04630° 
CLPO4640 
CLP04650 
CLPO4660 
CLP04670 
CLPQ4680 
cL°04690 
CLPO4700 
CLPO4710 
CLPO4726 
CLPO04730 
CLPO474O0 
CLPO04750 
CLP04760 
CLPU4770 
CLP047680 
CLP04790 


4810 1688 


LH Rie TOTAL 


INCREMENT TOTAL 


sot REY eer et ott 


€ 
COMMON LINE PRINTER TEST 06°170M96R02A13 PAGE . 10 10253304 09/13/77 { 
EXEC = ETPE RO3P3 ( 
oer RE EEO 225 4- 480 BAL LINK PRINT PRINT *TEST NNF- CLPU4800- a 
opp0 0709 481 XAR ROeRO cLP04a10 C 
0002 4000 1680 482 STH RO+NOERR RESET ERROR FLAG CLP04GB20 
aoe HOG 4000-1 68€-- 4ez STH -ROwCOUNT RESET COUNT -- CLPUSS30 ee) 
ODDA 4810 O0A24 484 KEEPG6 LH RisPSw2 DISABLE INTERRUPTS CLeoss4un C 
ODDE 9501 4a5 EPSR ROeR1 CLP04850 
moe “GDEO 4620 168C 486 LH R2°eBTESTNO R2=TEST IN BINARY -CLPO4BEO ee 
QDEY 9121 487 SLLS R2@eLADC CLPO04870 c 
ODE6 4812 1C72 488 LDA RieTESTS(R2) # ETE CLP04880 
aed ODE A 6301 : 4a9 8R RL. 60 TO TEST MODULE CLP64890 asia 
490 ETE04540 CLP04900 ¢ 
491 ETE04550 CcCLPO04910 
eee = 49D gern n n-ne ene en eee eee - CLPO4920 ao 
493 «* CLP04930 ¢ 
494 * TEST MODULE END ROUTINE CLP04940 
495 * CLP04950 - 
0000 ODEC 496 TSTEND EQU * CLPO04960 ( 
ONEC 4810 OA24 497 LH R1+PSw2 CLPO49TO 
ODF9 950} 498 EPSR ROeR1 DISAALF INT a PROCESSOR LEVEL cLoougan 
OuF2 4800 166F 499 LH " ROsCOUNT cLPe04990 ( 
ODF6 261 500 AIS ROel INCREMENT COUNT CLPe¥5000 
BOF 4¥OU0 166F 501 STH RO+COUNT ciPpeso10 
UDFC 4560 1754 502 CLH R0«LOOP+6 IF COUNT > LOOP, CLPUS5O30 ( 
0E00 2385 $03 BNLS KEEPT GO TO NEXT TEST MODULE CLPU5030 
oed2 4iFO 12A2 504 BAL LINK e TSTBRK IF BREAK GO TO OPTIN CLeUusoga 
OE06 4300 ODDA 505 B KEEP6 OTHERWISEe REPEAT SAME TEST CLPG5050 ( 
OEOA 4800 16a0 506 KEEP7 LH RO«NOERR LOOK a@ ERROR FLAG CLPU5060 
QESF 2135 507 BNZS KEEP71 CLPO5070 
vE10 c850 1662 508 LHI RS sNOERMSG CLPUS5080 ( 
0F14 41FO 1154 509 BAL LINK «PRINT PRINT "NO ERROR" CLPU5090 
0F18 4810 168C 510 KEEP71 LH R1eBTESTNO GET TEST # cLP051900 
QOE1C 4516 1682 S11 CLH R1ieSELTST IS THE LAST SELECTED TEST DONE ? CLPO05110 ( 
O0E20 4280 0DA2 S12 BL KEEPY NO, GO SELECT NEXT TEST cLed5120 
513 x CLP05130 
514 * ALL THE SELECTED TESTS ARE NOW RUN CLP05140 ( 
515 «* cLp05150 
0009 0F24 516 ABORT FQU * COME HERE TO ABORT TEST SEQUENCE. CLP05160 
OE 24 42uU0 0000 517 NOP CcLPo5170 
OE28 41FO 13606 518 BAL LINKeTSToU RETURN wITH Ri = OU BIT CcLP05180 ‘ 
OF2C 4230 OE54 519 BN2Z KEEPS IF OUe DISPLAY TOTAL CLP05190 
0b30 4810 1686 520 tH R1+*WASDUL WAS IT EVER ? CLPY¥5200 ( 
vE 34 423G SESC S21 BNZ KEFEP10 YES+ PRINT TOTAL+ TOTERR CLP05210 
JE3ZB 41FE 12Aa 522 BAL LINK, TSTBRK CLP05220 
QOE3C 4810 1760 523 LH R1i+CONTIN+6 IF CONTIN = 1s CL°0S230 ( 
OE40 4230 OD78 S24 BNZ KEEPS GO TO TEST 90 cLPO05240 
OE44 41FO 1334 525 BAL LINKsSETKB KB DEVICE = LIST BDEVICE CLPO0S250 
UES c850 1724 526 LHI R5+EOTMSG CLP05260 
QE4C 4iFO 1154 527 BAL LINK «PRINT °*END OF TEST? CLP05270 ( 
0E59 4300 GAEG 528 B OPTIN CLP05280 
529 Rew re we mene een eee eee ne ee ee eee CLP05290 ( 
530 * ROUTINE INCREMENTS-+OISPLAYS & CHECKS "TOTAL® CLP05300 
531 * CLP05310 - 
OES4 4010 1684 532 KEEPS STH R1eWASDU SET *"WASDU® FLAG CLP05320 
CLP05330 < 


COMMON LINE PRINTER TEST 06°170496R02A13 


SES5C 
OESE 
OE62] 
GE64 
OF 68 
QE6C 
QE6GE 
OE7O 
0E72 
OE7Y4 
OE78 
JE7C 
OETE 
0% 82 
OE 86 
GEBA 


GEBE 
GE92 
Of 94 


0£96 
OESA 
vE9C 


JESE | 


0b 42 
OEA6 
OEAA 
GEAE 
OER? 
OER4 
BvESA 
OERC 
QERE 
vEC2 
OECS 
OECB 
DECA 
BECC 
GEDD 
GED4 


VEDS 
u] ale 
OEE 
OFF4 
JEE6 
vEEA 
OEEE 
OEFO 


2611 
4010 
2421 
HEZO 
4800 
9400 
9820 
9401 
9620 
GE!YN6 
c510 
2389 
4890 
45009 
4280 
43U6 


C810 
9114 
9521 


41FO 
2036 
o7u0 
40U0 
41FQO 
c6&56 
4050 
41FG 
24u4 
4850 
41FO 
2434 
cC&4o 
41FG 
273] 
2023 
2404 
4650 
41Fo 
4300 


nuug 
4120 
41E0 
O7U0 
+0U0 
4820 
9502 
0109 


EXEC - ETPE RO3P3 


1688 


1655 
168A 


1654 
7FFF 


168C 
1682 
aD&eea 
0078 


D8GF 


KEEP91 


* 
HALTS 


* 


KEEP1O 


KEEP101 


FOR EEE RE REE RE KK ERK EEE EEK 


LHI 
SLHLS - 
EPSR 


WHEN EXE/RUN 


BAL 
BNZS 
XAR 
STH 


PAGE 11 


Riel 
R1eTOTAL 
Reel 
R2sINCR 
ROeTOTERR 
RO+«RO 
R2¢RO 
ROeR1 
R2eRO 
R2+NORM 
R1eX*7FFE* 
HALTS 
RO+«BTESTNO 
ROeSELTST 
KEEPY 
KEEPS 


R1eX*S80F¢ 
Rist 
R2eR1 
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DISPLAY: INCREMENTAL MODE 


DESPLAY TOTERR 

FORMAT FOR DISPLAY 
DISPLAY TOTAL 

OISPLAY: NORMAL MODE 
TOTAL < MAX RETAINABLE 7? 


RO = CURRENT TEST # 
IS IT LAST TEST ? 
NO. GO TO NEXT TEST 
60 TO TEST A 


(R1) = x*eanra® 
HALT PROCESSOR 


IS PRESSEDe PRINT TOTAL & TOTERR 


LINK+sTSTOU 
YALTS 
ROeRO 
ROeWASDU 
LINKeCRLFE 
R5¢TOTMSS 
R5SrISITERR 
LINK «PRINT 
RO 

Rie TOTAL 
LINK e«RSHEX 
R3e4 

R4yeCe ¢ 
LIWK+OUTCHR 
R3el 
KEEPLOL 
RO04 
RS+TOTERR 
LINK eR 5HEX 
OPTIN 


* ERROR ROUTINES 


* 
FRR 


ERRCOM2 


RaeERRSAVE 
R2:sERRCOM 
RET*ERRI 
RQOe«RO 
RO+ISITERR 
R2«PSw 
RysR2 
RO«ERRSAVE 


SEE IF LIST DEV I§ ON 
NO. HALT 


RESET FLAG 


PRINT *TOTatL TOTERR» 
TO PRINT & HEX DISITS 


PRINT TOTAL IN HEX 


SPACE 
OUTPUT IT 


4 TIMES 
TO PRINT 4 HEX DIGITS 


PRINT TOTERR IN HFX 
GO TO SEGINNING 


(OVERRIDE NOMSG OPTION) 


STORE REGISTERS 


RETURN IF LIST DEVICE IS ON 


PRINT "ERROR TTNNE 


RESET ERROR FLAG 


RESTORE REGISTERS 


CLPO5340 
CLPOS350 
CLPO05360 
CLP05376 
cLp0s380 
CLPUS390 
CLPU5400 
cLP05410 
CLP05420 
CLP95430 
CLP05440 
CLPCG54590 
CLPO5460 
cLP05470 
cLecs4s8o0 
CLPO5496 
cLP05500 
cLe0ss10 
CLP05526 
CLP05530 
CLePOssac 
cLP05550 
ciP05560 
cupos570 
CLPU5580 
CLPU5596 
CLeU5606 
c€Le056190 
CLPG65620 
CLPU5S630 
CLPO5640 
CLPO5656 
cLeGsé660 
CLPO05670 
cLp05680 
CLPOS690 
cLeVs7o0 
cL°05710 
CcLP05720 
CLPO57390 
CLP05740 
CLeO5750 
cLe0s76a 
CLeP05770 
CLPO5S780 
CL205790 
cLeussao0 
cLp0s8i10 
CcLP05820 
CLP05830 
CLPU5840 
CcLP05850 
cLe058&60 
CLPY¥5870 


COMMON LINE PRINTER TEST 06°170M96R92A13 PAGE 


EXEC - ETPE RO3P3 


OEF4 
OEF6 
OEFA 
QOEFE 
OF NS 
OFN6 
OFOA 
OF OE 
OF12 
OF 16 
OF 1A 
vFIE 
OF 22 


OF 26 © 


OF 2A 
OF QE 
OF 32 
OF 36 
OF 3A 
OF SE 
VFu2 
OF 4S 
UF4A 
OF LE 
MF 52 
oFS6 
JF5a 
2P Se 


OF 62 
OF 66 
OFG6A 
JF&C 
oF 7) 
UF72 
vF 76 
OF 7A 


OF TE 
‘GF B2 
OF a4 
OF 38 
qFAC 
OF90 


030F 
Nuvo 
4120 
41EO 
41E0 
& 300 
pvvo 
4120 
41EG 
41E9 
4360 
0U0 
4126 
41E0 
41E0 
4300 
NUUD 
4UFO 
4120 
etal 


C&50 
41FQ 


1000 
GF62 
OF 94 
OF SE 
OEE4 
1090 
OF 62 
OF 94 
OF RE 
oEE4 
190N0 
OF62 
OF94 
GFCE 
OER4 
1000 
164E 
OF 62 
OF 94 
OFF4 
oEE4 
1090 
OF 62 
OF 94 
OFCE 
1v0GC 
dEE4 


OF7C 
O0A24 


130E 


167F 
1686 
QF7A 
aF7C 


166A 


168A 
7FFE 
GE62 
OEBE 


16R6 
1154 


5rR LINK 

ERRD STM RO+sERRSAVE 
BAL R2eERRCOM 
BaL RETeERRI 
BAL RETeERRDI1I 
B ERRCO42 

ERRS STM ROcERRSAVE 
BAL R2eERRCOM 
BAL RET*ERR1 
SAL RET*¢ERRS1 
3 ERRCOM? 

ERRDS STM ROrERRSAVE 


BAL R2eERRCOM 
BAL RET*ERR1 
BAL RET+ERRDS1 


8 ERRCOM2 

ERRL ST™ ROeERRSAVE 
STH R15s0L0C 
BAL R2eERRCOM 
RAL RETe*ERRI 
BAL RETeERRL1I 
8 ERRCOM2 

EFRRALL STM RO«ERRSAVE 
BAL R2-eERRCOM 
BAL RETSERRL 
BAL RETeERRNS1 
BAL RETeERRPLI 
a ERRCOM? 


* 
* COMMON ERROR ROUTINE 


* 
ERRCOM STA 


R2«COMRET 

LH R1ePSwe 
EPSR ROeR1 
BAL LINK eTST9U 
BnNZS ERRCOM1 
STH R2eISITERR 
STH R2«NOFERR 
8 * 

COMRET EQU K—-2 

x 

ERRCOML Ln R1eTOTERR 
AIS Riel 
STH R1ivTOTERR 
CLHI R1TeX*7EFFE 
BL KEEPOL 
B HALTS 


* MESSAGE PRINT ROUTINES 

* 

* TO PRINT fERROR TINGE 

* 

ERR1 LHI R5sERRMSG 
BAL LINK ePRINT 


) 
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RETURN TO TEST 

STORE REGISTERS 

RETURN IF LIST DEVICE IS ON 
PRINT "ERROR TTINN' 

PRINT *DEV ODD* 


STORE REGISTERS 

RETURN IF LIST DEVICE IS ON 
PRINT "ERROR TTNN® 

PRINT "STA SS* 


STORE REGISTERS 

RETURN IF LIST DEVICE IS ON 
PRINT *ERROR TTNN® 

PRINT *DEV ODD STA SS* 


STORE REGISTERS 

STORE ERROR LOC TO PRINT 
RETURN IF LIST DEVICE IS ON 
PRINT "ERROR TINN® 

PRINT "Loc LiLL?® 


STORE REGISTERS 

RETURN IF LIST DEVICE IS ON 
PRINT ®ERRGR TTNN? 

PRINT *OFV DDO STa SSs* 
PRINT *PSW PPPP LOC LLLL* 


OISABLE INT. 2 PROCESSOR LEVEL 
GET LIST DEVICE JU BIT IN R1 
BRANCH IF OFF*LINE 

SET ERROR FLAG 


GO. PRINT ERROR MESSAGE 


LIST NEVICE IS OFF 


INCREMENT TOTERR 
TOTERR < MAX RETAINABLE 7? 


NO, ABORT CURRENT TEST & GOTO NEXT 


YES+* HALT PROCESSOR 


(NO NOT OVERRIDE NOMSG OPTION) 


PRINT "ERROR TINN® 


CLP05880 
CLPU5890 
CLPU5900 
cLe05910 
cLP05920 
cLeos930 
CLPU5940 
cLeos9s0 
cLp0s960 
CcLP0S5970 
cCLP05980 
CLPU5990 
cCLP06000 
cLp06010 
cLP06020 
CLeo60350 
CLPUGO4O 
CLPU6050 
cCLPO06060 
CLPUGOTU 
CLP06080 
CLP06090 
CLPU6100 
cLP06110 
CLP6120 
CLP06130 
cCLP06140 
CLPO06150 
CLP06160 
cLe06170 
CLP06180 
CLPO06190 
clLeo62od 
CL°G6210 
cLP06220 
CLe06230 
CLPU6249 
CLPUG256 
CLP06260 
CLP06270 
CLP06280 
CL°O6290 
CLP064500 
CLPU6310 
CLPO6320 
CLP06330 
CLP06340 
CLp06350 
CLPO06360 
cLP06370 
CLP063580 
CLP06390 
CLPU64O0 
CLP06410 


COMMON LINE PRINTER TEST 06-170M96RO02A13 — 


EXEC = ETPE RO3P3 


OF9C 


OFIE 
OFAQ 
OF AY 
OF AB 
OFAC 
OFS3uU 
OFRB4 


BFRE 
OFRBS8 
uFRC 
OFCO 
OF C4 
vFCA 
OFCC 


OFCE 
OF NO 
OF D4 
vFI8 
oF OC 
OF OE 
OFE2 
OFE6 
UFEA 
OFEE 
OFF2 


OFFY4 
OFF6 
CFFA 
OF FE 
1002 
1006 
100A 


100C 
1U0E 
1012 
1016 
1O1A 


O30E 


1650 
16F0O 
1LOF4 
16EC 
1154 


1652 
16E8 
1UF4 
16E4 
1154 


1650 
16E0 
1oF4 


4652 


1668 
LUF4 
169C 
1154 


164E 
1764 
LUFS4 
1700 
1154 


164A 
16FA 
10F4 
164E 


«x 

BR 
* 
* TO PRINT 
x 
ERRD1I LIS 


* 

* TO PRINT 
* 

ERRS1 LIs 


* 
* TO PRINT 
* 

ERRDS1 LIS 


¥ 
* TQ PRINT 
* 

ERRL1 LIS 


* 
* TO PRINT 
* 
ERRPLI LIS 


PAGE 


RET 


*OEy DODe 


R003 
R1eERRDEV 
R2+ASCIDEV] 
LINK »HEXASC 
R5+DEVMS62 
LINK «PRINT 
RET 


*STA SS* 


RO<2 
R1LeERRSTA 
R2eASCISTA 
LINK sHEXASC 
R5<«STAMSG 
LINKsPRINT 
RET 


"DEV OCD STA SS? 


R003 
R1eERRDEV 
R2sASCIDEY 
LINK »HEXASC 
ROe2 
R1eERRSTA 
R2«ASCISTA 
LINK «HE XASC 
R5.«NEVASG 
LINK ePRINT 
RET 


‘Loc LULL? 


ROe4 
R1eOLOC 
R2«ASCILOC 
LINK eHEXASC 
R5eLOCMSS 
LINK «PRINT 
RET 


RO4 
R1ieOPSW 
R2e«ASCIPSH 
LINK sHEXASC 
R1-eOLOC 


13 


"'PSw PPPP LOC LLLL* 
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TT = TEST #e NN = ERROR & 


RETURN 


SET uP DIGITS = 3 


R1 = ERROR DEV # IN BINARY 


CONVERT IT TO ASCII 


PRINT *UEV OD®* 
RETURN 


SET UP DIGITS = 2 
R1 = ERROR STATUS 


CONVERT IT TO ASCII 


PRINT "STA SS? 
RETURN 


SET UP DIGITS = 3 
R1 = ERROR DEV # 


CONVERT IT TO ASCII 
SET UP OJIGITS = 2 
R21 = ERROR STATUS 


CONVERT IT TO ASCII 


PRINT "OEV OD STA SS 


RETURN 


SET UP OITGITS = 4 
Ri= OLN LOC 


CONVERT IT TO ASCII 


PRINT *LOC LLLL* 
RETURN 


SET UP DIGITS = 4 
R1 = OLD PSw 


CONVERT IT TO ASCII 
R1l= OLD Loc 


CLP06420 
CLP06430 
CLP06440 
CLP06450 
CLP06460 
CLP06470 
CLeuesa0 
CLp06490 
CLP06500 
CLP06510 
cLev6520 
CLP06530 
CLP06540 
CLP065506 
CLP06560 
CLP06570 
CLP06580 
CL°06590 
CLPU6600 
CLP064610 
CLP06620 
CL>06630 
CLP06640 
CLP06650 
CLP06660 
CL°06570 
CLP06680 
CLPO6690 
CLe06700 
CLP06710 
CLP06720 
CLP6S730 
CLP06740 
CLPO6750 
CLPU6759 
CLP04770 
CLPU6780 
CLP06790 
CLPG6800 
CLP06810 
CLP06820 
CLP06830 
CLP06840 
CL°UGa50 
CLPUSsB60 
CLPGS870 
CLPU68380 
cLe06890 
CLP06900 
cLP06910 
CLP06920 
CLP06930 
CLP06940 
CLPU6950 


am, 


(, COMMON LINE PRINTER TEST 06-170496R02A13 PAGE 14 10253214 09/13/77 
ra EXEC = ETPE RO3P3 

LOLE C820 1704 696 LHI R2eASCILOC CLP&6960 
C 1022 41F0 10F4 697 BAL LINK +«HEXKASC CONVERT IT TO ASCII cLP06970 
1026 c8S0 16F6 698 LHI R5ePSWMSG CLPU6980 
103A 41FoO 1154 699 BAL LINK ePRINT PRINT *PSwW PPPP LOC LLLL® cCLPee6990 
¢ L026 030E 700 BR RET RETURN cLeo7000 
j TOL Ke RRR K RRR EEK RERE RARER KEE EEE EEE RE cLe07010 
702 * TO OBTAIN OPTION VALUE IN R6 (16 BITS. FARGT 16) CLPoTe2o 
C 703 * CLP07030 
1030 0766 704 OPTVAL XAR R6dRE INITIALIZE ACCUMULATOR CLPU7O40 
1032 41F0 1254 705 BAL R1i5¢GETCHR GET A CHAR IN Re CLe07050 
( 1036 24FF 706 oPTVALO LIS R15015 cLeU7060 
1038 Ov44F 169C¢ 707 OPTVAL1. CLB RY eHEXTAB(R15) SCAN TABLE CLe07070 
193C 2334 708 BES OPTVAL2 MATCH CLPO7280 
( 103€ 27F1 709 sts R15e1 cLP07090 
1040 2214 710 BNMS OPTVAL1 CLPV7100 
1042 030C¢ 711 SR R12 ERROR: VALUE NOT IN TABLE. CLP07110 
( 1044 9164 712 oOPTVAL2 SLLS R64 SHIFT LEFT 4 CLPG7120 
1046 O66F 713 OAR R6eR15 OR IN CURRENT DIGIT CLPG7130 
1048 4¥1FQ 1254 714 OPTVAL3S BAL R15eGETCHR GET NEXT CHAR CLPO7140 
t LO4C C540 OOSF T15 CLHI RueX*5Fet 1S IT LEFT ARROW 7? CLPU7150 
1050 2133 716 BNES OPTVAL4 cLP07160 
1952 9064 71? SRLS R64 THROW AWAY LAST HEX ENTRY CLP07170 
( 1054 2206 718 BS OPTVAL3 CLP07180 
1056 c540 90005 719 OpPTVAL4 CLHI R413 EXIT IF CR cleo7190 
1654 O53 725 BER Ris cLe9o7200 
( 105C C540 002c 721 CLHI R4eXtace OR COMMA cLe07210 
1066 4236 1036 722 ANE OPTVALO LOOP TO PROCESS CLP97220 
1064 6306 723 BR R14 RETURN cLec7230 
( T24 Ee ret ertee= were sere meter ess eee Se eese CLPO7240 
725 »* TO CONVERT (R6) FROM BINARY TO UNARY PATTERNe IN R3 cLPpOT250 
726 »* CLPO7260 
( 1066 2431 727 UNARY LIS R3e1 INITIALIZE CL°07270 
1043 C560 NUOF 72e UNARY1 CLHI R6915 DONE 7 CLP07280 
106C U35E 729 BER R14 RETURN CLe907290 
( 106£ UA3Z 730 AAR R3eRZ NO, SHIFT 83, CLPU7500 
1670 2661 731 AIS R6el INCREMENT COUNTER CLPO7310 
1072 2205 732 BS UNARY1 CLPL7320 
( 7330 kee wenn nee ew eee ee eee CLP07330 
734 * TO PROVIDE # OF MILLISECONDS DELAY SPECIFIED BY RO cLP07340 
735 * CLP07350 
( 1074 ou00 1910 736 TIMER STM ROeRSAVE SAVE REGISTERS CLPU7360 
1078 2410 737 L1s R10 CLPG7370 
1074 2424 73a LIS R2el CLPO7380 
‘ 107C 4830 NA1E 739 LH R3+TIME R3 = TIME CONSTANT FOR 1 MS DELAY CLP07390 
1080 Clio 1080 740 BXLE R1e* CLPU7400 
1084 2701 741 SIS ROe1 CLPO7410 
1086 2057 742 3NZS TIMER+4 LOOP TILL SPECIFIED DELAY CLP07420 
( 1088 0100 1010 743 LM. —- RO#RSaVE RESTORE REGISTERS CLP07430 
108C O30F 744 TIMXT BR LINK RETURN CLPO7440 
TUS ke een en -----~---- wnnneen- re CLP07450 
746 * RSHEX PRINTS CONTENTS OF RS IN HEX CLPO7460 
747? * PRINTS UPTO 4& DIGITS {8 DIGITS+ TARGT 32). CLe07470 
( 74uB x CLPO7480 


108E 0000 1010 749 RSHEX STM ROeRSAVE STORE REGISTERS CLPU7T490 


| 


COMMON LINE PRINTER TEST 06-170M96R02A13 


EXEC = ETPE RO3P3 


1992 
1094 
1096 
109A 
109¢ 
109€ 
10A2 
1046 
1OQAA 
IGAE 
10B0 
1082 
190R6 


1088 
108¢c 
10BE 
10c2 
10C4 
10¢6 
10CA 
1LOCE 
1600 
1002 
1604 
1058 
10DA 
199¢ 
1060 


_10E2 


10F46 
10F8a 
1OEC 
10F0 


10F4 
10F8 
1OFA 
1UFC 
10FE 
1100 
1104 
1108 
110C 
1110 
1112 
1114 
1116 
111A 


0620 
2721 
4210 


$122. 


0845 
cC42 
C#49 
D344 
41Fo 
27e4 
221A 
n1ido 


. G30F 


paca 
0830 
c8l1lo 
0813 
2lic 
cOS1 
C84o 
9154 
2382 
2641 
41FO 
2731 
2124 
1090 
030F 
C330 
2135 
C840 
41F 6 
43U0 


oOuo 
083Cc 
9132 
27354 
UB41 
CC43 
C440 
0344 
De4ea 
2621 
27ay 
2218 
01U0 
O30F 


1082 


0000 
OO0F 
169C 
11£2 


1010 


1010 
a010 


0000 
0039 


11—2 


1910 
90G3 
0020 


11E2 
10CA 


1010 


0000 
OOF 
169C 
0000 


1010 


* TO CONVERT 
* 
HEXASC STA 


HEXASC1 LDAR 
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ROeRSAVE 
R3eRO 
R3e2 
R304 
R4yeR1 
R4e0(R3) 
R415 

R4 eHEXTAB(R4) 
R¥eO(R2) 
R2el 
R34 
HEXASC1 
ROsRSAVE 
LINK 
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‘R2 = # OF DIGITS TO BE PRINTED 


R2 


&(DIGITS=1) 


R& = HEX DIGIT 


LOOP TILi aLL DIGITS 
RESTORE REGISTERS 
RETURN : 


STORE REGISTERS 
R3 = # OF DIGITS TO BE PRINTED 


EXIT 
R5 = OATA TO BE PRINTED 


IF CARRY* PRINT 1 
R3 = # OF REMAINING DIGITS 


RESTORE REGISTERS 
RETURN 

4e8 OR 12 NIGITS LEFT ? 
NO 

YES: OUTPUT ONE SPACE 


LOAR R2eRO 
SIs R21 
BK R5XB 
SLLS R202 
R5X LDAR R4a1R5 
SRAL R4eO(R2) 
NHI RGelS 
LB R4 eHEXTAS{R4) 
R5XA BAL R15+OUTCHR 
sIs R204 
RNMS R5X 
R5XB La RO«RSAVE 
BR LINK 
Ke treet eceereeq er weaves ean ea = ase 
* RSBIN PRINTS CONTENTS OF R5 IN BINARY 
_* PRINTS UPTO 16 DIGITS 
* 
R5BIN STM RO«RSAVE 
LOAR R3eRO 
LHI R116 
SAR R1eRZ 
BAS R582 
SLHL R590¢(R1) 
R58 LHI ReeCege 
SLHLS &5e1 
SNCS R581 
AIS R4el 
R581 BAL LINK sOUTCHR 
SIs RBel 
BPS R583 
R5Be L¥4 ROeRSAVE 
8R LIWK 
R5B3 THI R33 
ANZS RSB4 
LHI R4ecr 8 
BAL R15+0UTCHR 
R584 3 R56 


LOOP FOR NEXT OIGIT 


HEXADECIMAL DATA IN R1 TO ASCII CHAR & STORE @ O(R2) 


STORE REGISTERS 
R3 = DIGITS 


R3 = 4(DIGTTS)-4 
R4 = HEX DATA 
R4 = HEX DIGIT TO 3E CONVERTED 


‘STORE ASEII CHAR 


LOOP TILL aLL DIGTTS 
RESTORE REGISTERS 
RETURN 


cuipu7so0 
CLP07510 
CLP07520 
CLPO7530 
CLP07540 
cLeo75so 
cLe07569 
CLe07570 
CLPO7580 
CLP07590 
CLPU7E00 
CLPU7610 
CLP07620 
CLPO7630 
CLPO7640 


' CLPO7650 


CLPO7660 
CLPU7670 
CLPO76a6 
CLPO7690 
cLe07700 
CLPO7T7190 
CLPO7720 
CLPO7730 


CLPO7740 


CLP07750 
CL°07760 
CLPO7T77G 
CLPO07786 
CLPO07790 
CLPU7S8O0 
CLPO07810 


_CLPO7820 


CLPO07830 
CLPO7840 
CLPU7850 
CLPG7869 
cLP07870 
cLPeO07880 
CLPO78390 
cLepu7g900 
CLP07910 
CLPO7920 
CLPU7930 
CLPO7940 
CcLP07950 
cLe07960 
CLP07970 
CLP079890 
CLP07990 
cLeos000 
CL208010 
CLePUBDSO 
CLP08030 


i~ 


~ 


~ 


~ 


Ree ere 


COMMON LINE PRINTER TEST 06°170496R02A13 


ExcC = ETPE RO3SPS 


llic 
1120 
1122 
1124 
1126 
11284 
112c 
1126 
1130 
1132 
1134 
113A 
113A 
113C 
L13€ 
1142 
1146 
1148 
114A 
114€ 
1152 


1154 
1153 
115€ 
115& 
1162 
1146 
1164 
116E 
1172 
1174 
1178 
117A 
117¢C 
L17F 
1180 
1184 
1146 
L18A 
11a¢ 
11990 
1192 
1194 
1193 
119¢ 
1196 
11A2 


pogo 
0830 
9131 
2732 
O7494 
4853 
0515 
2188 
0815 
2644 
c540 
2086 
274A 
2208 
O344 
N24 
2621 
27352 
4310 
n1d00 
OS0F 


poco 
41FO 
2335 
4010 
430g 
4¥e2n 
4330 
cé14n 
Cc&uUG 
270i 
2031 
2711 
2035 
O74y4 
4040 
2541 


404g 


2434 
¥1FO 
2731 
2023 
4300 
4800 
2335 
4806 


4330 


1010 


1692 


Q00A 


169C 
0000 


1126 
10190 


1010 
130E 


1684 
11CE 
1684 
1194 
0140 
1400 


1684 
1686 
11£2 
OEIC 
176C 


167E 
11CE 
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Pe td Ce ee ee meee emaws 


INARY DATA IN R1 INTO DECIMAL DIGITS 
AND STORE THEM IN ASCII @ O(R2) 


*« TO CONVERT 8 


* 
* 
DECASC 


$DEC1 


fNEc2 


$NEC3 


STM 


LDAR 
SLLS 


sIs 
XAR 
LDA 


CLAR 


ALS 
SAR 
AIS 


CLHI 


BLS 
SIs 


5R 


ROeRSAVE 
R3eRO 
R3+eLADC 
R3eADC 
R4H,RY 
RS5+*DECTAB(RS) 
R1eRS 
$HEC3 
R1eRS 
R4Gel 
R4e10 
SNECa 
R4e10 
sDEC2 

RY eHEXTAB( RG) 
R4sO(R2) 
R201 
R3eANC 
$NEC1 
RO«RSAVE 
LINK 


Kewrwwe ten fF eee ZF wee Ze eee we eaon 


* TO PRINT THE ASCII MESSAGE 


PRINT 


Pl 


P2 


P3 


sT™ 


ROe«RSAVE 
LINKeTST3uU 


R2eWASDOU 
ik) 
R1sex*1408 
ROeX*10008 
ROel 


RH eRY 
R4GsWASOU 
R4el 
R4eWASDUI 
R34 

LINK .»OUTCHR 
R3el 


RO»sNOMSG+6 
PRINT2 
ROvsISITERR 
PRINTS 


) 


COPY DIGIT COUNT 
SESTABLISH DECTAB INDEX. 


CLEAR MODULUS COUNTER 
LOAD LARGEST REQ. POWER OF 10, 
EXCEEDS TEST VALUE 7? 

BRANCH IF YESe 

DECREMENT TEST VALUE 

INCREMENT MODULUS COUNTER 

VALIN DECIMAL DIGIT 7? 

BRANCH IF YESt ELSE 

FORCE vaLIO DIGIT, 

REPEAT DECREMENT, 

CONVERT MODULUS COUNT TO ASCII 
AND STORE aT DESTINATION MSB. 
INCREMENT DESTINATION POINTER 
DECREMENT DECTAB POINTER 

FALL THROUGH ON DECTAR UNDERFLOW, 
RESTORE USER*S REGISTERS 

RETURN, 


STORE REGISTERS 


SET FLAS 
EXIT 


DELAY CONSTANT 


LOOP TILL TIMEOUT 


CHARACTER = X°FF? 


PRINT TOTALe TOTERR 
NO. PRINT ALL MESSAGES 


NOT AN ERROR MSG. EXIT 


CLPO8040 
CLPO80S0 
CLPO8060 


-CLPO8070 


cLPeuae0e0 
cLeveaQdg0 


cCLPO8109 


CLPO8110 
CLe08120 
cLe081i3s0 
cCLPO8140 
CLPpo0a150 
CLPO8168 
CLPO08170 
ctLPe0818a0 
CLP08190 
cLP08200 
CLPO8210 
CL°08220 
cL°08230 
CLPO8240 
CLPEO8250 
cCLeO08260 
cLP08270 
CLEeG8!S50 
CLeUa290 
CLP0B300 
CL°G8310 
cLeus3sa0 
CLeP08330 
CLPO8340 
CLPO08350 
CLP08360 
CLPGB370 
CLP08380 
CLP08390 
CLPUS4O0 
cLeos410 
CLP08420 
CLP08430 
CLPO8440 
CLPOB450 
CLOEUS4E0 
CLeU8470 
cLP084so0 
CLPO08490 
cLeussao0 
CLP08510 
cLPO08520 
CL°?O8530 
CLPO8546 
CLPO8550 
CLPO8&560 
CL°68570 


COMMON LINE PRINTER TEST 06-17096R02413 


EXEC - ETPE RO3P3 


1146 


LIAA 
LIAE 
1180 
1182 


1164 


11B6 
1188 
118¢ 
1LBE 
11C0 
11¢€4 
11¢6 
11¢8 
LICA 


11CE 
11D2 


1154 
1108 - 
11DA 
119€ 


1if2 
11€6 
11EA 
1LEC 
11F0 
114 
1iFa 
11F¢ 
LIFE. 
1200 
1204 
1206 


120a 
120E 
12106 
1214 
1214 
1244 
121C 
1220 


1224 
1228 


D345 
41Fo0 


- 274p 


2333 
2651 
2207 
244a 
0310 
2713 
2335 
41F0 
2544 
2302 
2444 
41FO 
0006 
biog 
O30F 


poug 
244p 
41FO 
430 


4OF O 
0300 
2704 
4236 
4000 
41FO 
4236 
90U1 
2386 
4810 
2038 
4300 
uuud 
1FO 
9601 
C4109 
cBl1a 
2336 
2712 
4330 
43U0 
ouua 
4010 
41FO 


eoo0 


11€2 


1CAF 


11£2 


11£a 
11CE 
1010 


1918 


11£2 
1136 


1250 


“1CarF 


1224 
1252 
130F 
124A 


1252 


1224 
12UA 
12A2 


OO7F 
0012 


11F0 
11F4 
1224 
1252 
1305 
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PRINT2 LB R4eO(R5} 

BAL LINK sQUTCHR 

sts R4el13- 

B2Zs PRINTS 

AIS RS5el 

BS PRINFS 
PRINTS LIs R4.10 

LB R1i*IOSAVE+1 

sIs R103 

BZS PRINT3ZA 

‘BAL LINK ,QUTCHR 

Lcs R4e1- —- 

BS PRINT38 
PRINT3A LIS R4el 
PRINT3B BAL LINK eOUTCHR 
PRINTS EQU * 

LM ROeRSAVE 

3R LINK 


* 
* SMALL SUPPORT ROUTINES 

* 

* TO OUTPUT CReLF TO LIST DEVICE 
* 

c 


RLF STM RO*RSAVE 
LIS R4e13 
BAL LINK+OUTCHR 
B PRINTS 


Kw eteeeenwwereecee 2aecanrre erate Fae® 
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GET A MESSAGE BYTE 
OUTPUT IT 

CR ? 

MSG OVER 


LOOP FOR NEXT CHAR 
LF 

GET LIST DEV IDENTIFIER 
LINE PRINTER ? 

BRANCH IF YES. 

LF 

DEL 


YES+ OUTPUT X*O1* 
TERMINAL CHARACTER 
ETE08470 

RESTORE REGISTERS 
RETURN 


STORE REGISTERS 


OUTPUT CR 
LINE FEED, RESTORE, RETURN 


* TO OUTPUT A CHARACTER TO THE LIST OCEVICE 


OUTCHR STH R15*eGUuUT1+4+2 

LB ROreIOSAVE+1 | 

SIs RO04 

ANZ OUTCHRe 
OTC. STH RO+PAUSE 
OTC.0 BAL LINKeTSTOU 

BN2 ouTo © 

SSR ROeR1 

BFFS §.0TC.1 

tH R1ePAUSE 

BNZS oTC.0 

B QUTCHR®2 
oTC.1 £49uU * 

BAL R15¢TSTARK 

ROR ROeR1 

NHI RieX!7F? 

SHI R1eX*10"8 

B2Ss OUTCHR2 

sis Rie2 

RZ OTC. 

R oTc.0 
OUTCHR2 €£0U * 

STH R1+*PAUSE 

BAL LINK» TSTOU 


SAVE RETURS ADDRESS 


BRANCH IF NOT CAROUSEL 


ON LINE ? 

NO. ARANCH 

GET CAROUSEL STATUS 

BRANCH IF CHAR. IS TO BE READ 
PAUSED NOW ? 

YES+ LOOP 

NO, GO QUTPUT CHARACTER 


GET CAROUSEL CHARACTER 


0C2 ? 

YES: BRANCH 

Dc4y 9? 

YES+ GO SET PAUSE FLAG 
NO. GO WAIT FOR OC2 


RESET FLAG 
OFF=*LINE ? 


CLPGased 
CcLPO68590 
cLeos600 


- €LP08610 


cCLP98620 
CLPO8630 
CLPC8640 
CLPG8650 
CLPC8660 
CLPO8670 
cLoos6ao 
CLe08690 
CLPO8700 
CLP08710 
CLP08720 
CLPO8730 
CLPO8740 
CLPO8750 
CLPSG&769 
CLP08770 
CLP08780 
CLPOGBR790 
cCLPo8s00 
CLPOG8810 
CLPVS820 
CLP08&830 
CLPG&840 
CLPG8850 
CLe0es8E0 
CL?08870 
CLPG88A0 
CLe08s90 
cLPpuegoo 
cLeosg910 
CLPUBI2G 
CLPC38930 
CLPO894G 
CcLPG8950 
CLPO8960 
CLPU8970 
CLP089B80 
CLPU8990 
CLPYIUEO 
CLPL9040 
CLPU9020 
CLPG9630 
CLPO9040 
cLe09050 
CLegs06o 
CLP09070 
CLPU9I0BO 
CLPY3S090 
CLPU9100 
CLP69110 


& COMMON LINE PRINTER TEST 06-170M96R02A13 PAGE 18 
rg FXEC - ETPE ROSP3 
ee ee en OE. om ESE Se ce eee 942. BANZS : ouTo 
F 122F- 4110 137A 913 BAL R1ieSETUP 
1232 9001 914 oOTCe4 SSR ROeR1 
- - + 4234 213R. 915 ; BTFs 3,OUTS 
ra 1236. c510 a00dc 916 cLHI R112 
1234 2338 917 BES OUTO 
ee PARC €310- 9068 91a. THE R18 
f 1240 2037 919 BNZS OTC .4 
1242 SA04 920 wOoR ROeRY 
1244 9001 921 SSR ROeRL 
| t 1246 2081 922 BT8S Bel 
1248 2303 923 Bs OuUT1L 
- 2248 4010 1684 924 QuTO STH R1ieWASDU 
F —  124E 84300 124E 925 ouTl B * 
| 1252 0000 926 PAUSE pcx 1) 
G27 fete n ene e nnn ne ne ee ee -—-- 
928 »* TO GET A CHAR FROM KEYBOARD CIN 
( 929 
1254 4349 1342 930 GETCHR BAL R4eKBREAD 
P 1258 9004 931 SSR RORY 
f 125A v21F 932 BTCR 1eLINK 
| 125¢€ 2082 933 BTBS 8.2 
( 125€£ D430 OA1A 934 CL ROWMICROBUS 
1262 2333 935 BES ECHO1 
1264 9B04 936 RDR ROeRY 
( 1266 2303 S27 BS ECHO 
1268 9Buy4 938 ECHO1 RDR RORY 
126A gage 939 wDR R9eR4 
( 940 
126C 0390 165¢ 941 ECHO L8 R9eCONRD 
1270 c590 00a9 942 CLHI ROeXtAGt 
( 1274 2137 94% BNES ECHRITN 
1276 0390 1658 Suu LB R9eCONADR4+1 
1274 NO90 1653 945 ss R9eSINK 
( 127E 2082 9u6 BTBS 82 
12an GA94 9u7 wOR RORY 
12802 C440 GO7F 948 ECHRTN NHI RoeX*7Fe 
( 1286 USUF 949 BR LINK 
950 kee crere- Fees Seat es SS = see Sn ss 
951 «* TO OUTPUT *?" TO CONSOLE 
A 952 * 
1288 41Fo 1104 953 QUESTN BAL LINKeCRLF 
128¢ 4OFO 167E 954 STH LINK ISITERS 
; 1290 c850 1732 955 LHI 25 9QMSG 
1294 41FG 1154 956 BAL LINK ePRINT 
1298 0700 957 XAR ROeRO 
1294 4000 167E 95B STH ROeISITERR 
( 129F 4300 OAEA 959 B OPTINA 
960 xawenn---- weer ener eter enn nee 
‘ 961 
962 * 
12A2 0900 1050 963 TSTBRK STs ROeRSAVE+64 
1246 40FO 130C 964 STH LINK +«BRKRTN 
( 1244 0300 1654 965 LB RO+sCONADR 
( 
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- BRANCH - EF OFF-LINE 


SET UP FOR OUTPUT 
WAIT FOR NOT BUSY 


BRANCH IF OFFeLINE 


PASLA OFFLINE ? 
BRANCH: YES. 

BUSY ? 
WAIT FOR NOT 8USY, 
OUTPUT DATA BYTE 


WAIT FOR NOT BUSY. 


SET FLAG 
RETURN aS SET UP ABOVE 
SET DURING TRANSMISSION PAUSE 


REG R4) 
PUT KS DEVICE IN READ MODE 


IF OUs RETURN 

IF BUSY. LOOP 

Is IT BICRNBUS 7? 
YES+ BRANCH 

READ A CHAR IN R4 


* TO ECHO RECEIVED CHARACTERS TO CONSOLE DEVIcE IN FOX MODE 


CAROUSEL ? 
DO NOT ECHO 


ECHO RECEIVED BYTE 
REMOVE PARITY BIT 
RETURN 


SET FLAG 


PRINT #98 


TO ACCEPT COMMAND INPUT 


* IF BREAK KEY DEPRESSED: GO TO 'OPTIN® OR (BRKVECT): ELSE RETURN, 


STORE REGISTERS 


GET KEYSOARD DEVICE ADR 


CcLP69120 
CLPO09130 
cLP09140 
CL°99150 
cLp09160 
cLeo9170 
E€LPO9186 
CLP09196 
ciPug200 
CLP09210 


-CLe09200 


CLPO9230 
CLPO9240 
cLpegg9e5o 
cLe09260 
CLPG9270 
cLP09280 
CLP09290 
cCLeugzog0 
cLP09310 
CLP09320 
CLPQ9330 
CLPQ93S40 
cLP09350 
CLPO09369 
CLPO0S370 
cLeo93e0 
cCLe993990 
cL°09400 
CLP09410 
CLP09420 
CLeOo9430 
CLPO9440 
CLePO09450 
CLP09460 
CLP09470 
cCLPO94S0 
cLe09490 
CcLP09500 
cLP09gs10 
clLPe095s20 
CLe095356 
CLPO9540 
CLe09550 
CLOU9560 
cLpug5790 
CLPUS580 
CLP09590 
cLe09600 
CLP09610 
CLPO09620 
CLPUSE30 
CLP09640 
CLP09650 


_/ 


( * . ( + 3 8 q 
i in ) _£ 
, paduasoiers Evin hate e he wee idewtieay Seeatl eis Ss bass ry - tikes i SeGe ie el sues tase eas eee a Se es ie OS aS alt Dios, arn ” on QW isieeet 
& COMMON LINE PRINTER TEST 06-170M96R02413 PAGE 19 10$53:27 09/13/77 
EC = ETPE 
€ Ex TPE RO3SP3 r4 
te en IDG Ye ee ee a B- -§SR RO«RI Mute! helactine, Leystona oo oe CLpO9660 Pane 
C 1280 C310 9020 967 THI R1ieX*20t *BREAK* KEY PRESSED ? CLPO9670 C 
1284 4330 1300 968 BZ TSTBRK3 NO, EXIT AND RETURN TO PROGRAM CLPO09680 
“ 4288: 03520. 9A10 - 969 LB Rael fmt ey mee Ge meet ee se ees aa - -€LP69690 a See a 
¢ 12RC c520 9005 970 CLHI R2e5 Is IT MIcRoBUS 7? .CLPO9700 C 
12C0 2139 971 BNES TSTBRK4Y NO. BRANCH CLP09710 
- + -- 9000 12¢02. - 972 TSTBRKS Eau * vise - CLPO9720 ao 
C 12c2 9B02 973 RDR RoeR2 CLP09730 C 
12C4 9002 974 SSR ROeR1 CLPO9740 
126 C310 9020 975 THI RieXtage CLPO9750 | or 
( 12CA 4230 12C2 976 BNZ TSTBRK5 CLPO09760 4 
: 12CE 4300 1L2F4u 977 B TSTBRK2 CLPO09770 
90090 1262 978 TSTBRKY EQ’ * CLPOS780 — 
rt 12ne2 4820 1656 3979 LH R2ePASFLG PASLA ? CLPO9790 re 
1206 2338 Sao BZS TSTBRK1I BRANCH IF NO, cLPo09800 
1208 C316 9608 981 THI R1ie8 ALREADY ACKNOWLEDGED > CLP09810 a 
€ 120C 4230 1300 9B2 BNZ TSTBRK3 BRANCH IF YES CLP09820 ra 
12E£0 9B02 983 RDR ROeR]) CLPO9830 
1252 9081 984 SSR ROeRL CLP09840 
{ 12E4 2281 985 BFBS Bel CLPO09850 ( 
1266 0822 986 LOAR ReeR2] ZERO CHARACTER ? CLP09860 
12£8 213C 9a7 BNZS TSTBRKS BRANCH: JUST FRAMING ERROR CLP09870 
. 122A 2305 988 BS TSTBRK2 CLP09880 ¢ 
12EC 9001 989 TSTBRK1 SSR ROeR1L CLP09890 
L2fE c31¢ 9920 995 THI R1eX*20°8 CLPO9900 
r 12F2 2033 991 BT8S 3.3 WAIT FOR BREAK KEY RELEASE cLeogg1o ( 
12F4 48Fo 167C 992 TSTBRK2 LH R1i5e8RKVECT CHECK FOR SPECIAL ROUTINE CLP09920 
12F84 4330 GAEG 993 Bz OPTIN BRK W/NO VECTORS TO Exec, CLPG9930 
( 12FC 40FO0 130c 994 STH R1i5«BRKRIN SET UP FOR EXIT  CLP09940 ( 
1300 2400 995 TSTBRK3 LIS R020 CLPU9950 
1382 40UG 167€ 996 STH RO+BRKVECT DELETE vECTOR AFTER ONE SHOT, ~ EE PU9969. 
( 1306 Dlvo 1050 997 Lia ROeRSAVE+64 RESTORE REGISTERS , CLPUgS97O ( 
130A 4360 1304 998 B * RETURN TO PROGRAM CLPO9980 
0089 130C 999 RRKRTN FQU ke cLe09990 
( 1060) *------------ ester tres ne- eee cLp10000 ( 
1001 »* SEE IF LIST SEVICE OFFeLINE (R1. CC NON-ZERO IF OFF) cLP10010 
1002 * CLP10020 
( L30EF 0310 1iCAF 1003 TSTOU LB R1eIOSAVE+1 GET LIST DEVICE IDENTIFIER CLP10030 ( 
1312 9111 1004 SLHLS Riel (RL) = 2e4e6e8eA CLP19040 
4314 D301 gA11 1005 LB RO«I941(R1) GET LIST OEVICE ANDRESS cLP10050 
( 1313 9001 1006 SSR ROeR1 cLPe10060 ( 
131A 48U0 1658 1007 LH ROePASFLG2 CLP10070 
1316 2338 1908 B2ZS TsTOuUL BRANCH IF LIST DEVICE NOT PASLA CLP100806 
( 1329 C416 OOFC igo93 NHI R1aXtFce CLP10090 
1324 c510 6300Cc 1010 CLHI R1«Xt*oce BSY & EX SET ? : CLP10100 
13228 2133 1011 BNES TSsTOu1 BRANCH IF PASLA ON=LINE CLP10110 
( 132A 0811 1012 LBAR R1isR1 CLP10120 ( 
132C O3UF 1013 BR LINK PASLA OFFeLINE CLP10130 
132£ C416 9001 1014 TsTOU1 NHI R1el {Ri} = DU RIT CLP10140 “ 
( 1332 QO30F 1015 BR LINK RETURN CLP10150 ( 
1016) & er een n-ne eee ---- alate tie cLP10160 
1017 * TO NIRECT INPUT AND OUTPUT TO CONSOLE DEVICE CLP10170 
( 1018 x CLP10180 ( 
1334 D300 ALO 1019 SETKB LB RO«IO CLP10190 


GET KEYBOARD DEVICE 


€ 


COMMON LINE PRINTER TEST. 06 


ee a ae os mene ~4336--- ~9420- Semester el 


1334 
143C 
1349 


1342 


1346 
134A 
134E 
1352 
1356 
1358 
135C 


135€ 
1362 
1366 
136A 
136C 
1370 
1374 
1378 


137A 
L37€ 
1382 
1584 
138a 
138C 


1390 
1392 
1394 
1398 
1394 
139E 
13A2 
1346 
13AA 
L3AE 
1382 
1386 
133A 
13BE 


13C2 


0610 
4010 


-O50F 


EXEC + ETPE RO3P3 


1CAE 


OO4E 


0000 
139A 
0980 
O0CE 


. 0000 


13AA 
140A 


08&CE 


0U00 
13BA 


15£0 


-170M96R02413 
wins a hs A eo tiahge islet Ree tems Sate SL) 2c nas oe) ow Can reenter hast, “Ais, be "irs i pheasant 
2026 -EXBR--- RLARG 
1021 OAR R1LeRO 
1022 STH R1+IOSAVE 
1023 8R LINK 
1024) *----------------- woceee---- -- 
1025 * TO PUT KEYBOARD OEVICE IN READ MODE 
1027 KBREAD LB RO+«CONADR 
1028 oc Ra-reCONRO 
1029 RD ROeSINK 
1030 LH ROePASFLG 
1031 NOP * 
1032 TTYSET B2R RY 
1033 oc RO«CONRG2S 
1034 BR R4 
1035 +*---<--- Ct te re wweereeee 
1036 
1037 «* 
1038 KBRD ST ROesRSAVE 
1039 LB ROeCONADR 
1040 Li RivPASFELS 
1641 32s KBRDI 
1u42 oc ROsCONRG2S 
1043 KBSRD1 oc ROeCONENRD 
1044 LA ROe«RSAVE 
1045 aR LINK 
LOQG Fee ew ewe enn ee ee eee ee ee ee 
104u7 * LIST DEVICE SET UP ROUTINE 
1048 * 
1049 SETUP STH Rie«SET.RIN 
1050 is) Rie lOSAVE+1 
1051 SLHLS Riel 
1052 LB ROeIO+1¢(R1) 
1053 oc ROeCONWRT(R1) 
1654 8 * 
1055 SFTeRTN EQU #=2 
LOSG KEKE KK KE KER EK EK KEKE K ERE EKER KE 
1057 * LOW CORE SET UP ROUTINE 
1058 x 
1059 LCORE XAR PieR1L 
1060 LIS R22 
1061 LHI QSeXtuee 
1062 XAR RO«RO 
1063 ZERO STH RO«O{R1) 
1064 BXLE R1eZERO1 
1465 LHI R1ieX*8O? 
1066 LHI R3«X*CEt 
1067 ZERO2 STH RO«O0(R1) ” 
1068 BXLE R1+ZERD2 
1069 LHI RO«XI32 
1070 LHI R3eX*ace® 
1071 ZERO3 STH ROe«O(R1)- 
1072 BXLE R1e¢ZERO3 
1073 LHI R3eII 
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KB DEVICE = LIST DEVICE 
RETURN 


PASLA ? 
FOR SPECIAL KB DEVICE 
RETURN 


RETURN 


* TO SET UP KEYBOARD DEV To READ WITH INT ENABLED 


SAVE REGISTERS 
GET KB DEV ADR 


Mame. 
FASLA ¢ 


CONSOLE : ENABLE, REAO 
RESTORE REGISTERS 
RETURN 


GET LIST DEVICE IpENTIFIER 
HW INDEX 
GET LIST DEVICE ADORESS 


RETURN 


ZERO CORE FROM O THRU X*4F?t 


ZERO CORE FROM X*'a@0 THRU X°CF? 


INTERRUPT HANDLER ROUTINE 


SET UP INT SERVICE POINTER TABLE 


CLP10210 
cLP10220 
CLP10230 
CLP10240 
CLP10250 
€LP192680 
CLP10270 
CLP10280 
cCLP10290 
clLP10300 
CLP10310 
CLP10320 
CLP10330 
cLP10340 
CLP10350 
CLP10360 
CLP10370 
CLP10380 
CLP10390 
CLP1IG460 
CLP10410 
CLP10420 
CLP10430 
CLP10440 
CLP1C0450 
CLP10460 
CL°10470 
cLP1048¢ 
CLP10490 


cLP10506 - 


CLP10510 
CLP10520 
CLP10530 
CLP10540 
cLP1055¢ 
CLP19560 
CLP10570 
CLP10580 
CLP10590 
CLP10600 
CLP10610 
CLP10620 
CLP10636 
cLP10640 
CLP10650 
CLP10660 
CLP10670 
cLP10680 
cLP10690 
CLP10700 
CLP10710 
CLP10720 
CL®10730 


-ELP10200 


COMMON LINE PRINTER TEST 06-170N96R02A13 


- 4806- 


13CA 
13CE 
13p2. 
1306 


230A. 
130€ 


130€ 
1362 


1366 
13E0. 
13EE 
13F2 
1356 
13FA 
13FE 
1492 
1404 


1404 
1408 
140¢ 
1410 
1414 
1418 
141C 
L41E 
1422 
1426 
1428 
L42C 
1430 
1432 
1434 
1438 
143A 


143C 
1440 
1444 
1448 
144c 
1450 
1454 
1456 
1458 


c&40 
4049 


C83q.. 


4030 


COKE. 


4810 
4230 


4049 
cé&3n 
4036 


4659 


4059 
c850 
4050 
O3uF 


4049 
c&40 
4045 
c83ec 
4630 
031g 
OA11 
caug 
4001 


0711 


C836 


4821 


021F 
oA22 
4032 
2612 
2267 


93009 
C330 
4330 
c5u0 
4239 
DNE20 
9023 
2081 
9B24 


- 4039-0036 - 


1SFA 
QO3E 
25AC 
OO4E 


1026. 


1642 
1404 


0022 
159A 


-OG2E 


oA2]4 
O0&4 
L4€C 
0046 


0086 
1008 
0084 
15A2 
0096 
165A 


143C 
00n6 


L4unAa | 


1C44 


8050 


0A10 
0020 
1488 
0005 
1468 
1666 


EXEC - ETPE RO3P3 


ae ne ORY 


1075 
1076 


1077 


1078 
1079 


- 2080 


1081 
1082 
1083 
1084 


. 1085 
1086 © 


1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 


-1103 


1104 
11905 
1106 
11l¢7 
11¢8 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 


* 


*¥ 
* 


*« 


LCORE32 


os RBOMLBES 


R4 MM 
ReeX?3Et 


- RAAF. 


R3sX*yee 


~ REARSAYE 


Apc-2 


( 
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R1+MO032 


LCORESZ2 


~- FLL-INST- ENT NEW-PSH-LOC 


M. M. INT NEW PSW LOC 
_ ARITHMETIC FAULT NEW PSW LOC(32-B1T) 
FIXED PT DIVIDE FAULT NEW PSW LOC 


SET UP LOW CORE FOR 16 BIT MACHINE 


STH 
LHI 
STH 
LH 

STH 
Lal 
STH 
BR 


ENOC 


R4eX*aa8 
R3eFP 
R3eXtoces 
R5ePSW2 
RSeX*ay? 
R5«XIi6 
RS5SeX*uge 
LINK 


REG SAVE POINTER 
FLOATING PT FAULT INT NEW PSW LOC 
HW EXT INT NEW PSW STATUS 


EXT INT NEW PSW Loc 


SET UP LOW CORE FOR 32 BIT MACHINE 


LHI 
STH 
LHI 
STH 
Le 

AAR 


LCORES2A LH 


STH - 


RoeX* BG" 


RY sPSWSAVE 


R4oeXt ays 
R3eRP 
R43eX*96e 


R1+¢CONADR 


RieR1 
ROeKBINT 


ROeX*Na"(R1) 


R1isR1 
R3¢X1I32 


R2esDEVSADR(RI) 


LINK 
R2eR2] 


R3eX*HO*(R2) 


Rica 
LCORE32A 


0 


REG SAVE POINTER 
PPF PSW SAVE AREA 
» = POENTER 


RELOC/PROTECT INT NEW PSW LOC 
LOAD CONSOLE I70 ADDRESS 


RO = ACKEYSOARD INT HANDLER)? 
STORE 2 K*90%+2(K8 DEV ADR) 
. TO SET UP SERVICE POINTER TASLE 


GET DEV ADR FROM TABLE 
DONE. RETURN 


STORE a X#90%+2°0EV ADR) 


ee Pewee teow eee wwe wee eS eee weet nw eee ecco 


* 


KEYBOARD INTERRUPT HANDLER 


* 
KBINTO LB 


KBINTOC 


Ro-«IO 
R3eX*oqe 
KRINTL 
ROe5 
KBINTGSB 


R2«MREADC 


R2eR3 
Bel 
R2eR4 


GET CONSOLE ADORESS 

TS BREAK KEY DEPRESSED ? 
NO 

IS IT MICROBUS 7 

NO, BRANCH 

YES» ISSUE READ 


KNOCK DOWN SREAK 


~- LEPLOTHQ —.-- 


CLP10750 
CLP10760 
-CLPLO770 
CLP10780 
cLP10790 


“ELP10800 - 
CLP10810 | 


CLP10620 


ELP10830. 


CLP10840 
CLP10850 
-CLP10866 
CLP10870 
cCLP10880 
 €LP10890 
CLP10900 
CLP10910 
CLP10920 
CL?10930 
CLP10940 
cLP10950 
CLP10960 
CLP10370 
CLP19980 
CcLP19990 
cLP11900 
CLP11010 
Ctp11020 
cLP11039 
- €LE11049 
CLP11050 
CLP11060 
CLP11076 
CLP11080 
CLP110930 
CLP11106 
CLP11110 
CLP11120 
CLP11130 
CLe11146 
CLP11150 
CLP11160 
CLP11170 
CLP11180 
CLP11190 
ciLe1i200 
CLP11210 
CLP11220 
CLP11230 
CLP11240 
C€LP11250 
CLP11260 
CLP11270 


COMMON LINE PRINTER TEST 06+170496R02A13 
EXEC - ETPE RO3P3 


+458. -- 


145C 
1460 
1464 


1468 
146C 
146E 
1470 
1472 
1474 
1476 
147A 
L47€ 
14380 
14484 
1486 


1448 
148C 
1490 
1494 


1498 
149C€ 
14a9 
14A0 
14A4 
1446 
1446 
14A8 
144E 
1460 
1424 
1423 


9823 
C330 
4230 


4306- 


0000 
4850 
--2339 
9B24 
9023 
2281 
o84y 
4230 
4306 
9023 
C3350 
20583 
2206 
0000 
c500 
4230 
DE2O 
4300 
0000 
4020 
D230 


484Qq 
2335 


4000 
4019 
9B24 
41FO 
4890 
0239 


oou0 


4890 
2135 
9100 
c200 


c2o00 


po00 
9F 23 
D420 
4330 


9020 
1458 
42-4 
1468 


1656 


14BA 
VAEG 


0020 
1488 
0d65 
1498 
1667 
14BA 
1498 
1650 
1652 
1642 
164A 
164E 


126C 
167A 


143A 
1642 


1090 
0040 


1648 


1090 


165A 
143¢ 


- 2128 


1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 


1152 


1153 
1154 
1155 
1156 
1157 
1158 
1159 
1140 
1161 
1162 
1163 
1164 
1165 
1164 
1167 
1168 
1169 
1170 


1171 


1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 


PAGE 22 

‘SSR ORBERS 

THI R3eX*ag¢ 

BNZ KSBINTOC 

8 TST8RKe 
KBINTOB E€@U * 

LH RS+PASFLG 

825 KBINTOA 

ROR R2eR4 

SSR R2eR3 

BFBS Bel 

LOAR R4eRy 

BN2 RETOPSW 
KBINTOO 8 OPTIN 
KBINTOA SSR R2eR3 

THI R3ZeX*oge 

aTas 3e3 

BS KRINTOO 
KBINT1 EQU * 

CLHYI RO<5 

BNE KS INTS 

oc R2eMREADCHL 

B RETOPSW 
KBINTS EQU * 

STH R2.2INTDEV 

sTB R3ZeINTSTA 

IF Z apc-e 

LH R4sMON032 

B2s KRINTO 

ENOc 

STH RO9«OPSwW 

STa# R1eOLOC 
KBINT2 ROR R2eR4 

BAL LINK e ECHO 

LH RIeKBINT 

BNZR RS 


* 
* 


TO RETURN ON OLD PSw 


RETOPSW -FQU * 
IF2 anC-2 
LH R9e40032 
BN2S RETOPSW1 - 
LM ROeINTSAY 
LPSw x*4or 
ENOC 


RETOPSW1i LPSw 


oPSW32 
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BREAK STILL THERE ? 
YESe KNOCK IT DOWN AGAIN 
NO, GO-TO COMMAND MODE 


CONSOLE ON PASLA ? 
BRANCH IF NO, 


IGNORE FRERR ONLY 


WAIT FOR BREAK RELEASE 
60 TO COMMAND MODE 


IS It MICROBUS ? 

NO. BRANCH 

READ COMMAND TO MICROBUS 
RETURN 


STORE OLD PSW OF 32=-BIT PROCESSOR 
IN GRDER TO RETURN BACK TO TEST 


ECHO RECEIVED BYTE 
TF ZEROsIGNORE? ELSE 
GO,»PROCESS KB INT FURTHER 


RESTORE REGISTERS 
RETURN ON GLD PSW AFTER KB INT 


KR KE EEE EEE KK EEE EE REE KKK EEE KER KKK ERE K EK KEKE KEKE 


* 


EXTERNAL INTERRUPT HANDLER 
IFZ ADC-2 


XI16 STM ROeINTSAV 
ACKR R2«R3Z 
CLB R2sCONADR 
BE KBINTO 
ENDC 


FOR 16-BIT PROCESSOR 
ACKNOWLEDGE THE INTERRUPT 
FROM KEYBOARD DEVICE ? 


“CLP1126¢ 


CLP11290 
CLP11300 
cbLp11310 
cLP11320 
CLP11330 
CLP11340 
CLP11350 
CLP11360 
CLP11370 
CLP11380 
CLP11390 
cLP11400 
cLP11419 
cLP11420 
CLP11430 
CLP11440 
CLP11450 
CLP11460 
CLP11479 
CLP1i4#B0 
CLP11490 
CLP11500 
cLP11510 
CLP11520 
CLP11530 
CLP11540 
cLe11559 
cLP11560 
cLP11570 
CLP11580 
cLP11590 
cLp11600 
CLP11610 
cLp11620 
cLP11630 
cLP11640 
CLP11650 
CLP11660 
CLP11670 
cLP11680 
cLP11690 
CLP11700 
CLP11710 
CLP11720 
CLP11730 
CLP11740 
cLP11750 
CLP11766 
cLP11770 
CLP11780 
CLP11790 
CLP11800 
CLP11810 


& COMMON 
C EXEC - ETPE ROSP3 
‘ 9000 140A 
1404 9SAA 
- 145¢..- -40A0-16448 .. 
¢ 14E£0 4020 1650 
14E4q -p230 1652 
sins ea cata 1463 Ma S 25 rs delta sy 36 
¢ 14E8 4850 1642 
14EC 2135 
14EE -4800 90495 
€ 14F2 4810 0042 
14F6 
14F6 46060 164A 
€ 14F a 4019 164E 
14FE 
14FE 0855 
€ 1500 233A 
1502 
15902 4829 BA24 
{ 1506 9512 
1508 po0eG 1090 
150¢ 4826 1650 
( 1516 48AQ 1644 
1514 9755 
ri 1516 4865 1C44 
1514 4219 1566 
151E 9562 
‘ 1529 2333 
1522 2652 
‘L524 22u7 
( 1526 4865 1048 
152A 4330 1566 
1S2e 4969 1564 
( 1532 : 
1532 4860 1642 
( 1336 2339 
1538 
1538 9051 
( 1534 90A4 
153¢ C4A0 OOF 
15490 D4AS 1C42e 
{ 1544 4230 1576 
1548 4869 164EF 
{ 154C C560 1078 
; 1550 2187 
1552 C560 108C 
( 1556 23584 
1558 0109 1010 
155¢ 2303 
155— 0100 1090 


4300 1562 


-adee2 


1183 
1184 


1185 


1186 
1187 
1188 
1189 


- 1196 


1151 
1192 
11393 
1194 
1195 
1196 
1197 
1198 
1199 
1200 


(1201 


1262 
1203 
1204 
1205 
1206 


' 1207 


1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1229 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 


LINE PRINTER TEST 06°170M96R02413 


XI32A 


* 
XI16A 
XI1 


xy2 


* 
XI3 


Xr4 


ri 
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¥ 
R10+R10 


“REOeINTPSW 


R2eINTOEV 
R3ZeINTSTA 
4£0C#2 
R5e«M0032 
XI32A 
ROeX*4ot 
R1ieX*goe 


RO+sOPSw 
Ri eOL0c 
ANC-2 
RSeRS 
XI16A 


R2ePSe2 
R1+R2 
ROeINTSAV 
R2eINTOEV 
R10sINTPSW 


R5eRS 
R6«DEVSADRIRS) 
X¥ TERR 

R6,R2 

xI2 

R502 

xXxt1 
R6«DEVINT(RS5) 
XIERR 
RSeXIEXIT 


ADC-2 
R6+M0932 
x13 


R5el1 

R104 

R10:15 

R1LOe INTL YLERS) 
LVLERR 


R6eOLOC 
REe TIMER +4 
XT4 
R6&eTIMXT 
XxI4 
RO«+RSAVE 
xIs 
ROecINTSAV 
* 
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FOR 32-BIT PROCESSOR 
CAPTURE CURRENT PSW 


STORE INTERRUPTING DEVICE ADDRESS 
STORE INTERRUPTING DEVICE STATUS — 


16-BIF OLD PSW 
STORE- OLB PSw STATUS. 
STORE OLD PSW LOC 

_ 400932 = 0 2 


BRANCH IF YESe 


SELECT USER REGISTER SET 
SAVE USER REGISTERS 


GET DEV ADRS. FROM TABLE 
TABLE OVERFLOW, 
COMPARE INTERRUPTING DEVICE ADDRESS 


GET INTERRUPT HANOLER AODRESS 
INTERRUPT NOT EXPECTED 


32-BIT MACHINE ? 
BRANCH IF NO, 


CHECK PROPER INTERRUPT LEVEL 


GET PSW AT TIME OF INTERRUPT 
WAS INTERRUPT IN TIMER ROUTINE ? 


BRANCH IF NO, 


RESTORE FROM *TIMER® ENTRY 
RESTORE FROM XI16/X1I32 ENTRY 


AND GO TO INTERRUPT HANOLER 


€LP11620 
CLP11830 
cLP11840 


-CLP11850 


CLP11860 
CLP11870 


€LP11886 
-— CLP11890 


CLP11900 
CLP11910 
CLP11920 
CLP11930 
CLP11940 
CLP11950 
CLP11960 
€LP11970 
CLP11980 
CLP11990 
CLP12000 
CLP12010 


-CLP12020 


CLP12030 
CLP12040 
cCLP12050 


CLP12069 


CLP1207¢C 
CLP12080 
CLP12099 
CLP12109 
cLP12119 


 CLP12120 


CLP12130 
cLPe1l2140 
CLP1215¢6 
CLP12160 
CLP1217°¢ 


CLP12180. 


CLP12190 
cLP12200 
CLP122106 
CLP12220 
CLP12230 
CLP12249 
CLP12259 
CLP12260 
CLP122790 
CLP12280 
CLP122990 
cLP12300 
CLP12310 
CLP12320 
CLP12330 
CLP12340 


CLP12350 


a? 
b COMMON LINE PRINTER TEST S61 70M96RO2ZA15 PAGE .24 10:53: #0 ‘OS485/77 
€ EXEC - ETPE RO3P3 
isteroict aaa Nite Shades ais 8000 1564 ie + wf 23G KIEXIF EGU - . xe2 : Sires SG gates teeny gta Masten 
¢ 1237 €-c ewer tee Ses <.eS Ss s2-S6e= <= c=— 
1238 * EXTERNAL INTERRUPT ERROR ROUTINE. 
ay - 1239 * f ina 
¢ 1566 C860 4634 1249 XIERR LHI R6eCtFYye ERROR # Fy 
156A 4060 16BE 1241 STH R6eERRNO 
ee LS6E 41-0 OF 4A- 1242 BAL LINK ¢ERRALL fERRGOR XXF4', "DEY 005 STA SS? 
C 1243 * *"PsSw PPPP LOC LLLL® 
1572 4300 JAEA 1244 8 OPTIN1 TO ENTER COMMAND “ODE 
1245) xen mw em nn nnn a wn ee ee ene 
( 1246 »* DEVICE INTERRUPTED IN WRONG INTERRUPT LEVEL 
1247 x . 
1576 C860 4636 1248 LVLERR LHI R6sCtFE# ERROR 4 F6 
c 157A 4060 16BE 1249 STH | R6eERRNO 
1576 O3AA 169C 1250 LB R10eHEXTAB(R10) CONVERT TO ASCII 
1582 02A0 1720 1251 sTB R1OsERRLVL AND STORE FRROR LEVEL IN MESSAGE 
( 15864 41FO OF4A 1252 BAL LINK eERRALL "ERROR XXF6'e "DEV DDD STa SS* 
1253 x *PSW PPPP LOC LLLL* 
158A C850 170A 1254 LHI RS+INTLYLY 
( 158E 4050 167€ 1255. STH RSeISITERR SET FLAG TO OVERRIDE NOMSG OPTION 
1592 41FO 1154 1256 BAL LINK +PRINT "INTERRUPTED IN LEVEL N® 
1596 4300 OAEA 1257 B OPTIN ENTER COMMAND MOOE. 
( 1268)  #em mente nee nn een ena-- weceeee 
1259 «* SPURIOUS INTERRUPT HANOLERS 
1260 * 
( 1261 * 
159A 1262 IF2 anc-2 
1263 * -FLOATING=PT ARITH FAULT INT TRAP (16 BIT PROCESSSR) 
1264 x 
: 1594 48EC 0628 1265 FP LH R1i4eX*2B8" OLD PSW (16-BIT PROCESSOR) 
159 48FO0 0028 1266 LH Ri5deXoae OLD LOC 
( 15A2 1267 ENDC 
1265 * 
1269 * RELOCATION/PROTECTION INT TRAP 
‘ 1270 x 
1542 «C820 4645 1271 RP LHI Roa«CtFse 
15A6 4020 168& 1272 STH R2eERRNO SET ERRUR # F5 
15AA 230c 1273 3S comm 
1274 =¥* 
1275 * ARITHMETIC FAULT INT (32-81T PROCESSOR) TRA® 
15AC 1276 1F2 AQC=2 
1277 + FIXED-PT OIVIOE FAULT INT (16-8IT PROCESSOR) TRAP 
15AC 1278 ENDC 
" 1279 x 
15ac C820 4631 1280 AF LHI R2eCtFir ; 
1580 4020 -168E 1281 STH R2*eERRNO SET ERROR # Fl 
. 1584 1282 IF2 ADC-2 
15284 4820 1642 1283 LH R2eM0032 
1538 2135 1284 BNZS comes 
15BA 48EQ 0048 1285 LH R14eX*4ae OLD PSW (16-BIT PROCESSOR) 
15BE 48FO 004A 1286 LH R15eX*4ar OLD LOC (16-BIT PROCESSOR) 
15c2 1287 ENDC 
15c2 4#OEQ0 164A 1288 COMM STH R14+0OPSW 


viueke 4OFO 164E 1289 STH R15*¢OL0C 


cet at : -. $ eet he Tipe seid Ee < 7 ¥ ) : To Malas tes Hee ang B z haa ee a ae 


- CLP22360- -- 
-CLP12370 


CLP12380 


~€LP12390 


CLP12400 
CLP12410 
CLP22420 
CLP12430 
CLP12440 
‘CLP12450 
cLP12460 
CLP12470 
CLP12480 
CLP12490 
CLP12500 
clLPe12510 
CLP12520 
CLP12530 
CLP12540 
CLP12550 
CLP12560 
cLP12570 
cLP12580 
CLP12590 
CLP12600 
CLP12610 
CLP12620 
CLP12630 
cLe1264¢ 
CLP12650 
CLP12660 
CLP12670 
CLP12680 
CLP12690 
CLP12700 
CLP12710 
CLP12720 
CLP12730 
CLP12740 
CLP12750 
CLP12760 
CLP12770 


CLP12780 © 


cLP12790 
cLP12800 
CLP12810 
CLP12820 
CLP12830 
CLP12840 
clLP12850 
CLP12860 
cLP12870 
CLP12880 
cLP12890 


* WHEN EXE/RUN ITS DEPRESSED + 


-tH- : 


EPSR 
BAL 
std 
BAL 
B 


SIs 
BPS 


ENOC . 


LHI 
SLHLS 
EPSR 


B 
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~ROPSHD 


R2eRO 
LINKrERR 
LINK,ISITERR 
RETrERRPLI 
OPTINI 


R2eCtFar 
R2eERRNO 
Apc-2 
R2940032 
T1132 
R1i#exX*30° 
R1i5¢K"32F 


COMM 


R10-R10 
R2eCteze 
R2eERRNO 
Ri4eX#oa0 
Ri5eX*26 
AnC-2 
R2sh0032 
432 
R14eX*3ge 
R1SeX*3At 


R14<«X*FFFOt 
R1Uex*000F8 
R14¢eRiC 
R14eOPSW 
RiS*OLOC 
AnC-2 
RieX*?7FFFe 
R4tel 

MM16 


ROeX*OR0F? 


RO4 
R2eRO 


COMMA 


Tet rrrr TTT ter Tt T TTT r+ eer ss tt es 
* ETPE CONSTANTS & TABLES 


b COMMON LINE PRINTER TEST 06°170496R02A13 
C : EXEC - ETPE ROSP3 
a EEA OOO OA24 --2296 COMM1 
r¢ 15CE 9520 1291 
15D0 41FO O£D8 1292 
Saint Bey EE S13 5. 46FQ 167E 1293 
¢ 1558 41E0 100C 1294 
150c 4300 OAEA 1295 
ee haste) : . sigs : 41296 *x 
¢ 1297 
1298 x 
; 15£0 C820 4632 1299 If 
i 1564 4020 166E 13500 
15E8 1301 
: 15€4 4826 2642 1302 
ri 15SEC 2135 1303 
15EE 48EQ 0030 1304 
15F2 48FO 0032 1305 
{ -15F6 ; 1306 
15F6 4300 15C2 1307 yr132 
1308 «* 
( 130¢ 
1310 ¥* 
15FA SSAA 1311 MM 
( 15FC C620 4633 1312 
1600 4U26 16RE 1313 
16904 48F0 0622 1314 
{ 1608 4B8FC 0026 1315 
160C 1316 
166c 4#B2rn 1642 1317 
( 1619 2135 1318 
1612 48E0 0038 1319 
1616 46F0 OO3A 1326 
r 161A 1321 2 
1614 C4EQ FFFO 1322 M32 
161E C4A0 O0OF 1323. 
( 1622 GOEA 1324 
(1624 44EC 164A 1325 
1628 4OFG 164E 1326 
( 162C 1327 
. 162C C81lG 7FFF 1328 
1639 2711 1329 “M16 
i 1632 2021 1339 
1634 1331 
1634 C800. O80F 1332 
F 16395 9104 1333 
— 163A 9520 1334 
1335 
‘ 1336 
1337) x 
163C. 4300 15CA 1338 
( 1339 
1340 
1341 * 
( 1640 oduo 1342 FIRST 
1343 smoD32 


pcx 
OCXx 


0 
0 


-PRINT 'PSW PPPP 


16253342 09/13/77. 


NO INT. « REG SET 15 


PRINT *ERROR XXFN® 
FORCE PRINT ee 
LOC LLLL* 
ENTER COMMAND MODE 


* ILLEGAL INSTRUCTION INTERRUPT TRAP 


SET ERROR # F2 


COLO PSW 
OLP LOC 


* MACHINE MALFUNCTION INTERRUPT TRAP 


CAPTURE MMINT PSW 


SET ERROR # FS 
OLO PSW ( 32-BIT PROCESSOR) 
OLD LOC 


OLD PSw (16 BIT PROCESSOR) 
OLD Loc 


RO = x*80FQo? 
HALT PROCESSOR 


ERROR MSG IS PRINTEDe 


FLAG FOR 32-BIT M/C(NON=ZERO) 


€LPL2900- 


cLP12910 
CLP12920 
CLP12930 
CLP12940 
CLP12950 
CLP12966 


C€LP12970 


CLP12980 


CLP12999-— 


cLP13000 
CLP13010 
CLP13020 
CLP13030 
CLP13040 
CLP13050 
cLp13060 
CLP13070 
CLP13086 
CLP13090 
cLP13100 
cLP131i0 
CLP13120 
CLP13130 
CLP13149 


CLP13150 


ctLP13160 


CLP13176. 


CLP1318¢ 
CLP13190 
CLP13200 
cLp13210 
CLP1322¢6 
CLP13230 
CLP13240 
CLP13250 
CLP13266 
CLP13270 
CLP13260 
CLP13290 
CLP13300 
CLP13310 
CLP13320 
CLP13330 
CLP13340 
CLP13350 
CLP13360 
CLP13370 


‘CLP13380 


CLP13390 
CLP13400 
CLP13410 
CLP13420 
CLP13430 


= ; 
be COMMON LINE PRINTER TEST 06-170M96R02413 
( EXEC - ETPE RO3P3 
moms sere Siete OOO - 1344 INTPSw 
C 1648 1345 
1346 
= 1648 -- O6009----- 1347 aPSwW32 
( 164A 0000 1348 oPSW 
164C 000g 1349 aoe 
fee - “eee 06-0- 13586 oLec 
C 1351 
1650 0000 1352 INTDEYV 
- 8060 1650 1353 ERRDEV 
( 1652 00 1354 INTSTA 
O00Uu0 1652 1355 ERRSTA 
1653. 60 13556 SINK 
( 1654 80 1357 NORM 
1655 40 1358 INCR 
1656 1359 
( 1656 0000 1360 PASFLG 
1658 00u0 1361 PASFLG2 
1362 
( 1363 
i564 * 
165A ga00 1365 CcoNADdR 
165C 0000 1367 CONRD 
0000 1650 1368 CONWRT 
( 165£ 894A 1369 crTRod 
1660 A4DS 1370 CLIFRD 
1662 0080- 1371 LPWRT 
( 1664 AQAB 1372 CARRD 
; 1666 8202 1373 MREAOC 
1374 « 
( 1668 0000 1375 CON2ND 
0000 1669 13765 CONENRD 
166A Fa7T9 1377 cCRT2ND 
{ 166C OU64 ~ 1378 cCLIF2nO0 
166€ ouuo 1379 
1670 FU6ES 1360 CAR2ND 
( 1672 9292 13a1 
13a2) x 
1674 00 1383 CONRG@2S 
( 1675 3B 1384 CRTR|A2S 
1676 a0 1385 
1077 ov 1386 
1678 23 1387 CARR@2S 
1679 ou 13aa 
167A 1389 
1396 
; 167A L4BA 1391 KSINT 
167€ aang 1392 BRKVECT 
( 167E 0000 1393 ISITERR 
1680 0000 1394 NOERR 
1682 0006 1395 SELTST 
1684 ooda 1396 wASDOU 
1397 wasSDu1 


INTSTA 
0 
x?eo" 
xe4or 


* ETPE 10 COMMANDS 


DCX 


9Cx 
Eau 
BCX 
ocx 


0 


0 
CONRD+1 
BIAB 
A4D8 
0060 
ASAB 
8202 


0 
CON2ND4+1 
FATS 
0064 

0G 

Fo69 
9292 


0 
x?3Bt 


Z(RETOPSW) 
z(0) 


Qoaooo 
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~—AFOR 32-BIT M/E ONLY) 


---OLD PSW STORAGE- AREA 


INTERRUPTING DEV ADR 
ERRGR DEVICE # 
INTERRUPTING DEV STATUS 
ERRONEOUS STATUS 

BIT BUCKET 


SET wHEN CONSOLE ON PASLA/PALM 
SET WHEN LIST DEVICE ON PASLA 


CONSOLE DEVICE ADDRESS 
CONSOLE READ/WRITE COMMANDS 


FOR CRT 

* CURRENT LOOP INTERFACE 
* LINE PRINTER 

* CAROUSEL 300 

* MICROBUS 


2N0 COMMAND: ENABLE READ COMMAND 


FOR CRT 

* CURRENT LOOP INTERFACE 
* NUMMY HW FOR LP 

* CAROUSEL 300 

* NUMMY HW FOR MICROBUS 


CONSOLE REQUEST To SEND CMD 
FOR CRT 

* DUMMY BYTE FOR CLI 
MUMMY AYTE FOR LP 
CAROUSEL 300 

DUMMY BYTE FOR MICROBUS 


* % # 


KEYBOARD INT RETURN AQR 
BREAK KEY VECTOR 


HIGHEST SELECTED TEST # 
1 IF KEYBOARD DEVICE WAS OFF 


NON-ZERO IF TOTAL.TOTERR TO PRINT 


ctPLs44o- 


CLP13450 
CLP13460: 
- CLPL3470 
CLP13480 
CLP13496G 
ELP13590 - 
CLP13510 
cLP13520 
CLP13530 
CLP13540 
cLP13550 
CLP13566 
CLP13570 
CLP13580 
CLP13590 
CLP13600 
CLP13610 
CLP13620 
CLP13630 
CLP13640 
CLP13650 
CLP13660 
CLP13670 
CLP136a90 
CLP135690 
CLP13700 
CLP1371¢ 
CLP13720 
CLP13730 
CLP13740 
CLP137S0 
CLP13760 
CLP13770 
CLP13780 
CLP13790 
CLP13800 
CLP13610 
CLP13820 
CLP13830 
CLP13840 
CLP13650 
CLP13860 
cLP13870 
CLP13880 
‘CLP13890 
CLP13900 
CLP13910 
CLP13920 
CLP13930 
CLP13940 
' CLP13950 
CLP13960 
CLP13970 


am 


COMMON LINE PRINTER TEST 06°170496R02A15 


EXEC - ETPE RO3P3 


- 1688 
168A 
168C 
168E 
1690 
169a 
1694 
1696 
1698 


169A 
169C 


16AC 
1684 


1686 


16C9 


16C2 


16D0 
16f2 


16394 
169DC 


16EA 


16EC 


16F4 


16F6 


1798 


.90Gg... 


coda 
oo00 


. 90.0 Q- 


0009 


0003 
OO0A 
0064 
O38 
2710 
30313233 
34353637 
38394142 
43444546 


54455354 
20202A2A 
0009 

0000 1682 
4552524F 
52202a2h 
PASA 

oDG0 

0000 168C 
0000 169€ 
S44F 544) 
4C202020 
S446 5445 
5252 

ob0G 
4E4Faggs 
52524°52 
ob00 
4HEHBRE2G 
2A2A2h20 
53544120 
2h2A 

oov0 

O00bO 1660 
GOGO 1654 
00GQ0 16£8 
44455620 
2h2n2020 
oD00 

0000 16F0 
50535720 
2A2ZA2A2N 
20204C4F 
43202028 
2A2ZA 

oDog 


- 23998. 


1399 
1400 
1401 
1402 
1403 
1404 


1405 


1406 
1407 
1408 
1409 


1416 
1411 


1412 
1413 
1414 


1415 
1416 
1417 
1418 


1419 
1420 


1421 
142a 


¢ ‘ ’ ' 4 
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TOTAL BCX. 9 #- OF TEMES-THE SELECTEB--TESTS RUN 
TOTERR oCx 0 TOTAL ERRORS DETECTED WHILE Ou 
BTESTNO OCX 0 CURRENT TEST # IN BINARY 
COUNT DCX 0 vere es ae 
NEXTST ocx 0 NEXT TEST # 
* 
DECTAB oc 1,410+160+1000.10000 
HEXTAB DB C*G1l23456789ABCDEF® 


* ETPE MESSAGES 


* 

TSTASG BC C*TEST ¥#*-x'OD008 
MTESTNO E@U ¥=4 : 
ERRMSG oc CtERROR *#¥e%eX* ONO! 


ETESTNO EQ4j *=-6 
ERRNO FOU = 4 
TOTMSG oc C'TOTAL 


STORED 8Y ETPE 
STORE ERRNO AS CHAR CONSTANT 
TOTERR'sX*anon8 


NOERMSG DC C*NO ERROR’ sx OD00" 


DEVMSG oc CtvuEyY *€k* STA *«*,X'9D0G' 


ASCIDEV EQuU #-1l2 
STAMSG Eau <8 
ASCISTA EGU M4 


NDEVMSG2 O9OC C*DEy *ex%extOD9008 


ASCIDEV2 EQu *=6 


PSHMSG pc C'PSW *x#** LOC #**¥',X'ON00! 


CLP13980 
CLP13990 
cLp14000 


EL P14010 


CLP14020 
cCLP14030 
CLP14040 


CLP14050 


CLP14069 
CLP14070 
CLP14080 
CLP14090 


CLP14100 
CLP14110 


CLP14120 
CLP14136 
CLP14140 


CLPL4150 
CLP14160 
CLP14170 
CLP14180 


CLP14190 
cLP14200 


CLP14210 
CLP14220 


co 


MMON LINE 


EXEC = ETPE RO3P3 


270A 


-—-900-0: 16FA 
0000 1700 
0000 1704 

-- #94E5 445. 
52525550 
54454429 


HE BOHE- 


1722 
1724 
1730 


1732 
1734 


4556454 

20202420 

0000 

o0ud 1720 

45464420 
~~ 4F 462054 

45535420 

0000 

3F 05 

24U0 


1424 
1425 
1426 


1427 


1428 


1429 
1430 


-ASCIPSH 
LOCMSG 
ASCILOC 
INTLYLM 


ERRLVL 


EOTMSG 


anSc 
AMSG 


PRINTER TEST 06-170M96R02A13 


Eau - 


Eau 
EQU 


DC. - 


EQu 
boc 


BC 
oc 
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4216 


*-10 
*=-6 
C*INTERRUPTED IN LEVEL 


a4 
C*END OF TEST*.X*QD008 


xe¢SFape 
X*2A00" 


*%sX*ND008 | 


CLP1L4236 © 


CLP14240 
CLP14250 
CLP14260 


CLP14270 


CLP14280 


ECLP14290 
CLP14300 


COMMON LINE PRINTER TEST 06°170M96R02A15 


ExXtC - ETPE RO3P3 


1433 
1434 « 
wa nn BOODLE SG sss - 2435 -OpT 
1736 54455354 © 1436 TEST 
2020 
PSE —F980— te peg ecede ts ics Nt WARS ease es 
1735 00c0 
1740 0000 
a ETP - aa 1437 DEVADR 
4450 
1748 90062 
aie “174A 8606 
174Cc 000o 
174E 864C4F4F50 1438 LOOP 
ec cnee ees 7 (= BRA - oot ta eed : 
1754 0000 
1756 0000 
34758 8000 
175A 4S4F4E54 1439 CONTIN 
YO4E 
Soe 1760-8006 -- 
1762 ccAe 
1764 coco 
enero “EF GG ~~ 4ESEERSS.. ---- 1440 NOMSE 
4729 
176c © 0000 
176E CAB 
1770 ©.90000 
1772 4O4E544C 1442 INTLEV 
pe ee eo -~ BSG - 
1778 0000 
177A ocBs 
L77C 99690 
177E 54494956 1442) TIMVAL 
4&14C , 
1784 0146 
1786 0000 
1788. 0000 
me L7GA -- 48414054 1443) =HALT 
2020 
1790 couo 
1792 00u06 
1794 oo0g 
1796 HOS4E54SO 1444 INTRPT 
5054 
179C 0000 
1796 o0vo 
L7AG ~ 9900... ~ 
17A2 52434841 1445 RCHAR 
5220 
-2788---O0845 - 
17A4 17F8 
0000 


L7AC 


ei cone! —1432-. - ee ee ee 
OPTION/COMMAND TABLE 


EQuU 


oc 


DC. 


oc 


oc 


BC 


oc 


oc 


oc 


oc 


oc 


PAGE 29 102532349 09/13/7 


-- ie Ss See 


C*TEST *%eX*FO00* .X*0000".xX*0000° 


CPDEVADR® oX*624 0000 | — 
c*Loop TaRTQO OOK D000 sx OG00t 
CrCONTIN® oX*0000 eZ(ZERONE) «X*0000" 
C*NOMSS BYre ree Seer a ane gs oeraee 
EVEN TC EY MeN TOUCON Ce TEENELD  eaoo™ 
C8*TIMVAL* eX#0140%.000 ETE13970 
CTHALT %+0e0e0 


C*INTRPT' e000 


C*RCHAR *eXt45' sRCONTROD 


CLP14330 
CLP143480 


-CLP24350- 


CLP14360 


CLPA4370 | 


CLP14380 


CLP14390 


CLP24490 


CLP14419 


CLP14429 


CLP14439 


CLP14440 


CLP14450 


ie ae ~ €bP3 4599 sect opie et ieee tie 


ee i eS at, a Ee, eta artes at ee ee et ee 


SS SSS SSS EES SE SS OC EIR ET ASE EAE EERSTE EERE SPEER NPE SIE EC AIT NE ETE EE EEE APT IE LT TET: 


oc 


pec 


Eau 
EQU 
oc 


oC 


oc 


C 
< COMMON LINE PRINTER TEST 06-1 70N96RO02A13 
€ EXEC = ETPE RO3P3 
ARE 8 “2446 -PREHAR 
r? 4152 
1784 00441 
EB BBB 
€ 1788 0000 
17BA 454F4C43 1447 EOLCHR 
en 88 eis eee ate Shera wits: Rem tr ae 
€ 17c0 OD01 
17¢c2 o0vu0 
ae = PPO -OBOH - ; 
¢ 17C6 45585041 1448 EXPAND 
KES 
conn TEE | OOOH 
¢ 17CE 0000 
17Dp0 0000 
ee LTB HES 74944 1449 LwIOTH 
FA 5448 
1708 0132 
wee L7DA 180€ 
( 170c¢ 0000 
GGG0 17DE 1450 oPTEND2 
Se Mreneieee -§009-170E - 21451 oPpTEND 
¢ 17DE 4F505449 1452 OPTION 
OF 4E 
ee a LTE4+ 6060- 
( 17£4 9000 
17E8 0000 
17EA 5255uF20 1453 RUN 
( 2020 
17F0 0000 
m--—-- ET RR-- 9008 --- 
C 17F4 0000 
17F6 FFFF 1454 
: 1455 »* 
¢ 
¢ 
( 
‘¢ 
( 
¢ 
¢ 


oc 
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CtEXPAND* -0.,0¢0 


C*LWIOTH® .X#3232° »WIDCONTR» 


* 
* 
CtOPTION? 40.0+0 


CeRUN 60.640 


=1 


C*EOLCHR® oX*OD01* eOe0 


10553250 09/15/77 


OPTION TABLE TERMINATOR 


“MECEMAL OPTION VALVE 


CLP14470 


CLP14480 


CLP14490 


cLP14500 
CcLP145106 
CLP14520 


CLP14530 


CLP14540 
CLP14550 


18438 904a 1510 


SRLS 


RY = 0 THRU 9 


ty ... COMMON LINE PRINTER TEST 06-170mN96R02A13.. . _- PAGE 31 . 19253251. 09/13/77 .. 
~“ E 
€ EXEC TPE ROSP3 c 
EB - WORK 0 ---EQU -  ee ~ tee ee te eet ene wie ee CEP LEB ZQ.. -- - 
C o0800 0001 1488 yYALUE EQu 1 cLP14580 € 
0060 0003 1459 STAT ESU 3 CLP14590 
wee re ee - 9800-6004 oe 1460 BEV - EQU 4 ss cane ~ -EEPL4EOS - Scere ni 
€ 0000 0005 1461 QFLG EQU 5. cLP14610 € 
0000 0006 1462 CNT EQU 6 CLP14620 
Sa ee SOR A won mn HO-B-B-- -8-O+8 F-- Mis Gaicy acess, eeeae 1463 INCRAT-. £QU F- . Siete. ocd tee uaa ere tikes eas ee oie ie. Serie, €bPA46350. OE ee eaten Ie 
€ 0000 0008 1464 LIMIT EQU 8 CLP14640 € 
. 0000 0009 1465 DATA EQU 9 CLP14650 
we ee OOO 8088 | ae 1466 cCNTS - FQU 10 Doe ee soe ELP214669 ee ee 
C goog 0008 1467 RTNA EQU 11 CLP14670 C 
0000 o00Cc : 1468 CNT2 Eau 12 CLP14680 
C . 0000 O00F 1470 LIMIT? EQuU 14 CLP14700 € 
oC00 000F 1471 RIN EQU 15 CLP14710 . 
( 17F8 c560 0020 1473 RCONTR CLHI R6eX*208 RCHAR = x*20% = xe7F? CLP14730 € 
17FC o28c 1474 BLR R12 CLP14740 
-- -27FE 2304 1475 BS == ~P& CLP14756 sic t 
( 1476 CLP14760 C 
1800 c560 0040 1477 paACONTR CLHI RGeX*40° PACHAR = X*40" = X*7F# CLP14770 
BEaR: he '  3804-  @28C- 1478 BLR Ri2 CLP14780 Bp ee 
ra 1806 C560 0080 1479 PA CLHI R6eX* aor CLP14790 C 
180A 038C 1480 BNLR R12 CLP14800 
were ee BAG - ASOF- --- Se 2461 BR LINK RETURN TO ETPE CLP14810 snneee 
( 1482) + CLP14820 € 
180E C560 0002. 1483 wIDCONTR CLHI R692 LWIDTH = 2 = 132 (DECIMAL ENTRY) CLP14830 
i 1812 o28¢c 1484 3LR R12 CLP14846 
( 1814 C560 0133 1485 CLHYI R6eX"133! cLe14850 ( 
1818 v36C 1486 BNLR R12 CLP14860 
181A 41£9 1824 1487 BAL RET e¢DECHEX CONVERT OPTION ENTRY IN DECIMAL -) €£P24879 - 
( 1486 «x DIGITS TO HEX VALUE IN R7 CLP14880 ¢ 
181E 4070 1038 1489 STH R7sLINEWIO STORE LINE WIOTH IN HEX CLP14890 
1622 O30F 1490 BR LINK RETURN TO £TPE CLP14900 - 
( L491 eer em em en ren ee ee ee ee ee ee 5 CLP14916¢ . <a 
1492 -« CLP14920 
1493 * TO CONVERT OPTION ENTRY IN R6& IN DECIMAL DIGITS TO CLP14930 
( 1494 * HEX VALUE IN R7. NO REGISTERS DESTROYED, ‘CLP14940 ( 
1495 * IF NON-DECIMAL DIGIT IS ENTERED °7* IS LISTED CLP14950 
- 1496 CLP14960 
( 1497 x CLP14979 ( 
15924 DOUd 1910 1498 QOEFCHEX STM ROsRSAVE CL°14980 
1828 0626 1499 LHR R2eRG CLP14999 
182A c420 000F 1500 NHI R2eX'F? OUTPUT * 7 * IF NON=-DECIMAL cLP15000 
182E C520 OO0A 1501 CLHI R2eX*OAt cLP15010 
1832 4386 1870 1502 BNL DECHE K2 DIGITS ARE ENTERED. cLe15020 
1836 0826 1503 LHR R25R6 CLP15030 
1838 9024 1504 SRLS R2e4 CLP15040 
183A C420 QO0F 1505 NHI RQeXtet CLP15059 
1836 c52c 0004 1506 CLHI R2eX*oa? CLP15060 
1642 4380 1870 1507 BNL DECHE x2 CLP15070 
1508 cLP15080 
1846 0846 P 15c9 LHR R4eRE cLP15090 
R48 


cLP15100 


COMMON LINE PRIN 


TER TEST 06°170M96R02A13 


EXEC = ETPE RO3P3 


bas oe +: + os 


om ee aa -$654-. 


e54e—-e008 - --- 


4360 1870 
oAeYy 


C490 OOOF 
D290 1C42 


4840 1748 
C4+4OQ O3FF 
DE%¢o 1C4c 
4249 1C1E 
4040 1C44 
4800 1784 
40G0 OAILE 


DECHEX1 


O& CHE x2 


* 
* 
* 
INTCONTR 


x 
INIT 


. Raeek* Oa? 


DECHE X2 
ReeR¥ 


 RSCONSTT (Re)- 


R7eRG 
R7eR3 


- R3ECONSTER2? - 


R7eRZB 
R7+TEMP] 
RORSAVE 
R7eTEMP2 
RET 
RacRSAVE 
Rie 


RIRE 
R9eXtFe 
RO INTLVL 
LINK 


DEV eDEVADR+6 
DEVeXt3FF SP 
DEV«DISARM 

4, ERRO1 
OEV»eDEVSADR 
WORK s+ TIMVAL46 
WORK e TIME 
LINK 
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ENTRY > 999 


RETURN WITH CONVERTED VALUE IN R7 


OUTPUT *?° 


R9 = DEV INTERRUPT LEVEL 


RETURN TO ETPE 


GET DEVICE ADDRESS 


CLEAR INTERRUPTS 


SET UP ETPE TASLE 


PUT TIMVAL IN TIMER 
RETURN TO ETPE 


CLP15120 
CLP15130 
CLPESAND 
CLP15150 
CLP15160 
CLP15170 
CLP15180 
CLP15190 
eLP15200 
cLp15210 
CLP15220 
CLP15230 
cLpi5240 
CLP15250 
-CLP15260 
CLP15270 
CLP15280 
CLP15290 
CLP15300 
CLP15310 
cLP15320 
CLP15330 
CLP15340 
CLP15350 
CLP15360 
CLP15370 
CLP15360 
CLP15390 
CLP15400 
CLP15410 


Fy —€tptstie—- — ee ccm 
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TESTO 


18A0 
18A4 
18A8 
18AC 
18AE 
1880 
18B2 
1886 
18BA 
18BE 


41E0 
c800e 
4000 
0755 
2404 
2401 
41FQ 
D390 
c820 
41FQ 


1BAa2 
1904 
1048 


1c10 
17A9 
1A82 
19FE 


-- FO VERIFY THE OPERATION OF THE DISABLE AND DISARM - 


Akt RH HHH HHH HH HEE HHH 


* ee Be KEKE KEEFE KE EK EK KEKE KEK EK EE KE KE 


TES F @- 
PURPOSE: 
FUNCTION ON THE LINE PRINTER INTERFACE. 


DESIGN SPECIFICATIONS: 
THIS TEST FIRST ISSUES A DISARM 
COMMAND TO THE LINE PRINTER INTERFACE AND PERFORMS 
A PRINT OPERATION. IF AN INTERRUPT IS GENERATED 
AN ERROR MESSAGE IS PRINTED. IF NO INTERRUPT IS 
GENERATED THE DEVICE IS ENABLED TO INSURE THAT AN 
INTERRUPT WAS NOT QUEVED. IF AN INTERRUPT WAS 
QUEUED AN ERROR MESSAGE IS PRINTED. 
THEN TEST ISSUES A DISABLE COMMAND TO THE LINE 
PRINTER INTERFACE AND THEN PERFORMS A PRINT 
OPERATION, IF AN INTERRUPT IS GENERATED AN ERROR 
MESSAGE IS PRINTED. IF NO INTERRUPT IS GENERATED 
THE DEVICE IS ENABLED TO INSURE THAT AN INTERRUPT 
WAS QUEUED. IF NO INTERRUPT WAS QUEUED AN ERROR 
MESSAGE IS PRINTED. 


HOW TO RUN THE TEST; 
DEPRESS THE POWER PUSHBUTTON OF THE LINE PRINTER 
AND INSURE THAT THE DEVICE IS ON LINE. ENTER TEST O* 
AND ANY OTHER OPTION INFORMATION DESIRED, THE TEST * 
TS EXECUTED BY ENTERING THE RUN COMMAND. THE TEST * 
PRINTS TWO LINES AND MAY BE TERMINATED * 
BY THE USER AT ANY TIME BY DEPRESSING THE BREAK KEY* 


eee He eRe HH HEH HHH HH HHH HH HH OH 


* 
OPTIONS: * 
THE FOLLOWING OPTIONS ARE APPLICABLE TO THIS TEST, « 
DEVADR eTEST+ TIMVAL eCONTIN«NOMSGsLOOP,LWIDTHsEOLCHR * 
x 
ERRORS: . x 
OOO1s 0002. 0005s 9004+ 0005, 0006, 0007. 0008. * 
0009+ 0010, OG41+ 00124 6013, 001%, 0015, AOF1:+ * 
QOF2+ OOFS, OOF%s+ OOFS,. * 
* 
*ee*e & * © KK K K KK K KK KK KK KR KOK OK OR OK Oe OK 
ESTO BAL RET»SET2 SET UP FOR DEV ADR 
LHI WORK se INTO 
STH WORK eDEVINT SET FOR DEVICE INT 
XHR QFLG+QFLG RESET @ FLAG 
LIS CNT2s1 SET CHAR COUNT 
LIS BUMP 41 
BAL LINK sLWSET SET LINE WIDTH IN R14 
L8 DATAeRCHAR+7 
LHI R2eSTACHK 


TOA BAL RTN*LDBUF LOAD BUFFER 


rm 
~ 

ie) 

° 


CLP154306 
CLP15440 
CLP15450 


--€LP15460 | 


CLP15470 
cLP15480 


-€LP15499 


CLP15500 


--cLp15510 
CLP15520 


CLP15530 
CLP15540 
CLP15550 
cLP15560 
CLP15570 
CLP15580 
CLP15590 
CLP15600 
CLP15610 
CLP15620 
CLP15630 
CLP15640 
CLP15650 


_CLP15660 


CLP15670 
CLP15660 
CLP15690 
CLP1i5700 
CLP15719 
CLP15720 
CLP1i5736 
CLP15740 
cLp15750 
cLPe15760 
CLP15770 
CLP15780 
CLP15790 
CLP15800 
CLP15810 
CLP158206 
CLP15830 
CLP15840 
CLP15850 
CLP15860 
cLP15870 
CLP15860 
cLP15890 
CLP15900 
CLP15910 
CLP15920 
CLP15930 
CLP15940 
CLP15950 
CLP15960 


F aaed 


TESTO 
seid ses Pali ~-¢8e2--- ~ BBES- dias 

18C4 41B0 1482 
18C8 2451 

 -FO8CA - BEYG 1C4A 
18CE 4200 0000 
18n2 4200 0000 
“b6DN6--- €600-+914 
18DA 4000 1048 
18DE o755 
18£0 BDE4O 1€48 
18E4 24C1 
18E6 D390 17A9 
18EA GiFQ 19FE 
18EE 2202 
18F0 2451 
18F 2 BDE4¢o 1C4aA 
18F6 4200 0000 
15FA 4200 0000 
L8FE C808 3036 
1902 2307 
1904 C800 3033 
1908 08655 
190A 2133 
190C¢ C800 3034 
1910 4340 1A66 
1914 0855 
1916 4230 ODEC 
1914 C80 3035 
191E 22u7 


“1597 


1598 
1599 


- 1660 


1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 


COMMON LINE PRINTER TEST 06-170M96R02A13 


ToB 


INTO 


ERROY 


INTOO 
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“TOA 


RTNAeSTACHK 
QFLGe1 
DEV «ENABLE 


WORK +s ENTOO 
WORK eDEVINT 
QFLG.QFLG 
DEV+DISABL 
CNT2el 
DATAsRCHAR+T7 
RTNeLOBUF 
ToB 

QFLG ol 
DEVeENABLE 


WORK»sC*06# 
ERKRO4+4 
WORK«C 03? 
QFLG.QFLE 
ERROG4+4 
WORK, C*04? 
COMERR 
QFLG+eQFLG 
TSTEND 
WORK -C*Q5? 
ERROG+4 


“TIE ENE FUEL -8- PRINTED 


WAIT TILL LINE IS PRINTED 


ENABLE DEV INT 


SET FOR DEVICE INT 
DISABLE DEV INT 
SET CHAR COUNT 


LOOP TILL LINE IS PRINTED 
SET @ FLAG 

ENABLE DEV INT 

SET ERROR # 06 


SET ERROR # 03 


ERROR # 04 


@ FLAG SET ? 
YESe EXIT TO ETPE 
ERROR # 05 


cLP15960 
CLP159990 


 CLPLE000 


cLP16010 
CLP16020 
cLP16030 
cLP16040 
cLP16050 
CLP16060 
cLP16070 
cLpP16080 
CLP16090 
cLP16100 
clLPp16110 
CLP16120 
CLP16130 
cLPp16140 
CLP16150 
cLP16160 
cLP16170 
CLP16180 
CLP16190 


CLP16200. 


CLP16210 
cLP16220 
CLP16230 
CLP16240 
cLe16250 


CEPISITO eters: oe 


( a ee 


ci ees 
fs COMMON LINE PRINTER TEST 06-17096R024A13 PAGE 35 10354300 69/13/77 
Ss 
C TESTi | C 
SS Shae ee See Ged cea rae Seep bok ae Bye Ot. --4627 «- - See atouditald, saat 2 wt 5 PRBS Es realy Meee ae accede ty = cae - ta daneot : - -- €LP4£6270 a ee ee 
1628 * * © *® ee eRe KK EEE EK EEK KE KR KE KE HE KE CLP16280 gg 
€ : 1629 =x * CLP16290 ‘ € 
PoE RES yes oe : 1630 * TES TB * - €LP16300 Ste ene 
€ 1631 * * CLP16310 € 
1632 * PURPOSE: * CLP16320 
Roi Eas 2 a (1633 * TO ALLOW THE SERVICE ENGINEER TO MECHANICALLY * CLP16330 ; iene 
€ 1634 * AOQJUST THE PRINTER AND SEND ALL ASCII CHARACTERS «* CLP16340 , C 
1635 »* TO THE PRINTER, * CLP16350 
ae 1636 * : * ~€LP16360 teed 
C 1637 »* DESIGN SPECIFICATIONS: * CLP16370 "4 
1638 * THIS TEST SENDS ONE CHARACTER TO THE PRINTER * -CLP16380 RS 
1639 *« CONTINUOUSLY UNTIL THE END OF LINE CHARACTER IS * CLP16390 ge es 
; ( 1640 *« SENT. THE QUFFER IS PRINTED AND THE CYCLE REPEATS « CLP16400 C 
1641 * UNTIL SIXTY LINES HAVE BEEN PRINTED, THE DEVICE * CLP16410 
i" 1642 »* IS CONTINUOUSLY INTERROGATED THROUGHOUT THE TEST. * CLP15420 eee 
( 1643 »* FOR THE CORRECT STaTUS AND MAY BE EXECUTED UNDER * CLP16430 ¢ 
1644 -* INTERRUPT CONTROL IF DESIRED. * CLP16440 
1645 x * CLP16450 ae 
( 1646 »* HOW TO RUN THE TEST: | _* CLP16460 . ra 
1647. * DEPRESS THE POWER PUSHBUTTON OF THE LINE PRINTER: § ¢£ CLP16470 | 
1648 * AND INSURE THAT THE DEVICE IS ON LINE. ENTER TEST 1 CLP16486 “ 
( 1649 * AND ANY OTHER OPTION INFORMATION DESIRED. THE TEST * CLP16490 ¢ 
1650 »* IS EXECUTED BY ENTERING THE RUN COMMAND. THE TEST x cLP16500 
1651 * WILL EXECUTE UNTIL 60 LINES HAVE BEEN OUTPUT OR * : - ‘CbLP165106 ay 
{ : 1652 * UNTIL AN ERROR CONDITION EXISTS. THE TEST MAY BE * CLP16520 r 
1653 »* TERMINATED BY THE USER AT ANY TIME RY DEPRESSING * er CLP165306 
: 1654 + THE BREAK KEY OW CONSOLE. IF THE LINE PRINTER IS TO* CLP16540 
( 1655. *« BE RUN UNDER INTERRUPT CONTROL THE INTRPT OPTION *x CLP16550 ( 
, 1656 +* MUST 3E SET EQUAL TO 1, * CLP16560 
1657 * *  CLP16570 2 
t 1658 *« OPTIONS: ; * CLP16580. ( 
1659 * THE FOLLOWING OPTIONS ARE APPLICABLE TO THIS TEST, * CLP16590 
1660) 4 * ODEVADR. TEST+ TIMVALs HALT: INTRPT, NOMSGe RCHAR. ¥ -CLP16600 > 
{ ees ; . 1661 »* \LWIDTH, EXPAND. EOLCHRe LOOPe AND CONTIN. * CLP16610 ( 
1662 * * CLP16620 
1663 * ERRORS * CLP16630 
( 1664 ‘«* 0101¢ 0102, 0104+ 0107. 0108, 0109, 0110. n111i+ * CLP166490 ( 
1665 * 0112¢ 0113, 0114+ 01156 G1IF1e O1F 2, 81F3, 1F4, * CLP16650 © 
1666 »« 0O1F5. * CLP16660 : : 
( 1667 + . * CLP16670 ( 
1668 * * * * *€ * * € K€ F * € KK KK RE EK EK KE KR KK KK K OX CLP16680 
1669 + “ CLP16690 
( 1920 41C0G 1858 1670 TESTI BAL R12eSET SET FOR INT/SSsDEVADR,FF ETC, CLP16700 C 
1924 24C1 1671 TIA LIS CNT2e1 SET CHARACTER COUNT CLP167106 . 
1926 03960 17A9 1672 LB DATA eRCHART7 GET CHARACTER TO BE PRINTED cLP16720 : 
{ 1924 4H1FC 19FE 1673 «#718 BAL RTN«LDBUF LOAD BUFFER UNDER SS/INT CONTROL CLP16730 r 
1926 2202 1674 BS T1868 LOOP TILL LINE IS PRINTED CLP16740 
1939 41FOQ 18C4 1675 BAL LINK +CHKEND RETURN IF NOT DONE/EXE OEPRESSED CLP16750 a 
( 1934 4300 1924 1676 B T1A LOOP FOR NEXT LINE CLP16760 ( 
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be Radda hihehes 


eonnen ENE: ERENVER ceST. salah 


“yest2 


as 


~ 1678 «* ; - tenes - CLPLE788 - - 

1679 * * * &e eee K KEK KK ERE EK ER KR HERE EK EK ER KE & CLP16790 

1680 x * CLP16800 

1681 x TEST2 * CLP16819 

1682 * * CLP16820 

1683 -« PURPOSE: * CLP16830 

-- wre ee 1684 »* THIS TEST INSURES THAT EVERY CHARACTER. FROM X*20! « CLP168490 

1685 *« TO X*?F* CAN BE PRINTED IN EVERY PRINT POSITION. ¥ CLP16850 

1686 * x CLP16860 

1687 * DESIGN SPECIFICATIONS: * CLP16870 

1688 * THIS TEST SENDS EACH CHARACTER FROM X*20* THROUGH * CLP16880 

1689 «* X*7E* TO THE PRINTER, WHEN THE CHARACTER X*7F* IS” ¥ CLP16890 

1690 * DETECTED THE TEST ISSUES THE CHARACTERS FROM X*20! »& CLP1690060 

1691 * AGAIN. WHEN AN ENO OF LINE CHARACTER IS DETECTED * CLP16910 

1692 * THE BUFFER IS PRINTED AND THE CYCLE REPEATS UNTIL * CLP16920 

1693 «* 60 LINES HAVE BEEN PRINTED. EACH LINE STARTS WITH * CLP16930 

1694 «* THE VALUE THAT THE PREVIOUS LINE STARTED WITH PLUS x CLP16940 

1695 * ONE (EX. XK*20%eX'21%.KX*22%eETC.). THE DEVICE IS ¥ CLP16950 

1696 *« CONTINUOUSLY INTERROGATED THROUGHOUT THE TEST FOR «* CLP16960 

1697 * THE CORRECT STATUS AND MaY 3E EXECUTED UNDER * CLP16970 

1698 »* INTERRUPT CONTROL, * CLP16980 

1699 + * CLP16390 

1700 * HOW TO RUN THE TEST: * CLP17000 

1701 * DEPRESS THE POWER PUSHBUTTON OF THE LINE PRINTER * cLP17010 

1702 * AND INSURE THAT THE DEVICE IS ON LINE, ENTER TEST 2 CLP17020 

1703 « AND ANY OTHER OPTION INFORMATION DESIRED, THE TEST » CLP1L7O50 

1704 +»« IS EXECUTEN BY ENTERING THE RUN COMMAND, THE TEST x CLP17040 

1705 * WILL EXECUTE UNTIL 66 LINES HAVE BEEN OUTPUT OR * CcLP17050 

1706 ¥* UNTIL aN ERROR CONDITION EXISTS. THE TEST MAY BE * cLP17060 

1707 * TERMINATED BY THE USER AT ANY TIME BY DEPRESSING * CLP17070 

1708 * THE BREAK KEY ON CONSOLE. IF THE LINE PRINTER IS TO CLP179080 

1709 »* BE RUN UNDER INTERRUPT CONTROL THE INTRPT OPTION * CLP17090 

1710 »* MUST BE SET EQUAL To 1, * CLP17100 

1711 * * CLP17110 

1712 »* OPTIONS: * CLP171290 

1713 * THE FOLLOWING OPTIONS ARE APPLICABLE TO THrS TEST, * CLP17130 

1714 * DEVAUR. TEST« TIAVAL. HALT: INTRPT,. NOMSG, LWIOTH, * CLP17140 

1715 * EXPAND, EOLCHR. LOOP AND CONTIN, * CLP17150 

1716 x ; *x CLP17166 

1717 «* ERROR: * CLP17170 

1718 * O201+ 0202, O204%+ 02074 0208. 0209, 0210+ 0211+ * CLP17160 

1719) * 0212s 0213, 0214+ 0215, O2F1l, O2F 2, O2F3, O2F4, * CLP17190 

1729 + O2F5. * CLP17200 

1721 + * CLP17210 

1722 «© © * # € * KE Ke F EK KE KK EE EK EK KK KOK E OK CLP17220 

1723 Oo : CLP17230 

1938 41Co 1653 1724 TEST2 BAL R12<eSFT SET FOR INT/SS-+DEVADR,FF ETC. CLP17240 

193C C8u0 0020 1725 LHI WORK«x*#208 CLP17250 

1940 o200 1C45 1726 ST8 WORK «CHARI CLP17260 

1944 24C1 1727 T2A LIS CNT2e1 SET CHARACTER COUNT CLP17270 

1946 0390 1C40 1728 LB DATA+CHARI GET LAST CHAR cLP17280 

194A 2691 1729 AIS BATAel. CLP17290 

194C C590 SU7TF 1730 CLHI DATAeX*7F® CLP17300 
1350 2183 1731 BLS T28 


Dd 


CLP17310 


TE 


Siete Ste Sees acs 4952 


1956 
1554 
°295€ 
195E 


1962 | 
1964 - 


1968 
196C 
196E 
1972 


come RS mn ee ee ae nm a 


ST2 

wo EE BIO-BO20- moe om RSQ 
D290 1C40 1733 
2307 1734 
POPE = oe “4735 
C590 007F 1736 
2183 1737 
C698 0020 1736 
41FQ 19FE 1739 
2208 1740 
41F6 1BC4 1741 
430G 1944 1742 


T28 


Tac 


T2D 


COMMON LINE PRINTER TEST 06+170M96R02A13 


( 


BATA sX*26° 


DATAsCHAR1 
T20 


DATA. - 


DATAeX*7Ft 
T20 
DATAyK*20¢ 
RTNeLOBUF 
Tac 
LINK « CHKEND 
T2A 
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| INITIALLZE TO-SPACE 


INCREMENT TO NEXT CHAR - 


LOAD BUFFER UNDER SS/INT CONTROL 


LOOP TILL LINE IS PRINTED 
RETURN IF "SOT DONE/ZEXE OEPRESSED 
LOOP FOR NEXT LINE 


-CLPL?350:—- 


ELP1 7320 
CLP17330 
CLP17340 


CLP17360 
CLP17370 


~ €LPL7366 
_CLP17390 


cLP17400 
CLP17410 
CLP17420 


TESTS 


1976 41Cg 1858 
197A cé00 002A 
197& D200 1C4E 


1984 0390 1C4e 
1988-- €790 OO7F 
°198C D290 1C4eE 


1992 C790 OO7F 
1996 G1FOQ 19FE 


COMMON LINE PRINTER TEST 06°170M96R02413 


1 7ay 


1745 
1746 
1747 
1748 
1749 


. 1750 


1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
17e0 
17a1 
17a2 
1783 
1784 
1785 
1786 
17a7 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 


1797. 
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TESTS 


PURPOSE: 
TO TEST THE OPERATION OF THE INTERFACE AND PRINTER 
WHEN CONTINUOUSLY PRESENTED WITH ALTERNATING DATA, - 


DESIGN SPECIFICATIONS: 
THIS TEST SENDS THE BINARY CHARACTERS 01010101 
(=ASCIT U) ALTERNATED WITH ITS COMPLEMENT 10101010 
(=ASCII *) TO THE PRINTER CONTINUOUSLY UNTIL THE 
END OF LINE CHARACTER IS SENT. THE BUFFER IS 
PRINTED AND THE CYCLE REPEATS UNTIL SIXTY LINES 
HAVE BEEN PRINTED. THE DEVICE IS CONTINUOUSLY 
INTERROGATED THROUGHOUT THE TEST FOR THE CORRECT 
STATUS AND MAY BE EXECUTED UNDER INTERRUPT CONTROL 
IF DESIREO, 


HOW TO RUN THE TEST: 

DEPRESS THE POWER PUSHAUTTON OF THE LINE PRINTER 
AND INSURE THAT THE DEVICE IS ON LINE. ENTER TEST 3 
AND ANY OTHER OPTION INFORMATION DESIRED. THE TEST * 
IS EXECUTED BY ENTERING THE RUN COMMAND. THE TEST x 
WILL EXECUTE UNTIL 60 LINES HAVE SEEN OUTPUT OR * 
UNTIL AN ERROR CONDITION EXISTS. THE TEST MAY BE * 
TERMINATED 8Y THE USER AT ANY TIME BY DEPRESSING * 
THE BREAK KEY ON CONSOLE. IF THE LINE PRINTER IS TO# 
BE RUN UNDER INTERRUPT CONTROL THE INTRPT OPTION 
MUST BE SET EQUAL TO 1, 


ee eee H He HE HHH RH HHH HHH OH 


OPTIONS: 
THE FOLLOWING OPTIONS ARE APPLICABLE TO THIS TEST, 
DEVAUR. TESTs TIMVALs HALTe INTRPT, NOMSG. LWIDTH, 
EXPAND. EQLCHR, LOOP AND CONTIN, 


ERROR: 
O501+ 0302, 0304%+ 0307+ 0308. 0309, 03104 03115 
0312+ 0313, 0314+ 0315¢ O3F1s O3F 2, O3F 3. O35F4e 
O3F5. 


4H HR H RH HEH HE HH HHH KH 


** £ kee KKK KK KK K KK EK KER RK K KOK KOE 


Ate eH He HH eH a a a a 


EST3 BAL R12¢SET SET FOR INT/SSeDEVADR,FF ETC, 
LHI WORK «Chet 
STB WORK «CHAR? 
T3A LIS CNT2e1 SET CHARACTER COUNT : 
: LB DATA+CHAR2 GET START CHAR OF LAST LINE 
XHI GATAsX'TF?! CONVERT *« TO U / U TO * 
STB DATA«CHAR2 
BS T3B6+4 
T38 XHI DATAsxX'7Ft CONVERT * TO U / U TO x 
BAL RTN«eLDOSUF 


BS T38 LOOP TILL LINE BUFFER IS LOADED 


) 7 ' 
ea 


 CLPLT4+e0 


cLP17450 
cLP17460 


“CLP17470 


cLP17480 
CL°17490 
CLP17500 
CLP17510 
CLP17520 
CLP17530 
CLP17540 
CLP17550 
CLP17560 
CLP17570 
cCLP17580 
CLP17590 
CLP17600 
CLP17610 
CLP17620 
CLP17630 
CLP17640 
CLP17650 
CLP17660 
CLP17670 
CLP17680 
CL°17690 
CLP17700 
CLP17710 
CLP17720 
CLP17730 
CLP17740 
CLP17750 
CLP17760 
CLP17770 
CLP17780 
CL?17790 


-CLP17800 


CLP17810 
CLP17820 
CLP17830 
cLP17840 
CLP17850 
CLP17860 
CLP17870 
CLP17880 
CLP17890 
CLP17900 
CLP17910 
CLP17920 
CLP17930 
CLP17940 
CLP17950 
CLP17960 
cLP17970 
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TESTS 
19A4 41E0 
1948 41B6 
19AC DA4O 
1980 41B0 
19B4 pasa 
1988 41B0 
198C DAO 
19¢9 4180 
19C4 DA4O 
19¢8 4180 
19€C DAG 
1900 41B0 

DA4Q 


1B42 
1A82 
1052 
1A82 
LC4F 
1A82 
1c51 
1482 
1785 
1A82 
iC4F 
1A82 


1052 


1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1611 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1620 
1821 
1824 
1823 
1624 
1825 
1826 
1827 
1828 
1629 
1830 
1631 
1832 
1833 
1834 
1835 
1636 
1837 
1838 
1639 
1840 
1641 
1842 
1843 
1844 
1845 
1846 
1847 
16448 
1849 
1850 
1851 
1852 
1853 
1854 


ACORMON LINE PRINTER ABBY. DS ETEAZORS EATS: 
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PURPOSE ¢ 
¥@ TEST THE PAPER ADVANCE COMMANDS AND-WERTICAL-- 
FORMAT UNIT (DATA PRINTER LP ONLY) 


DESIGN SPECIFICATIONS: 
THE LINE PRINTER INTERFACE IS SENT THE CHARACTER 
X*2A* (*) FOLLOWED BY A X*OD? (CR) AND THE PAPER 
ADVANCE CHARACTER. THEN ANOTHER X*2A* t#) 
FOLLOWED By A X*OA* (LF) IS ISSUED, 


HOW TO RUN THE TEST: 
DEPRESS THE POWER PUSHBUTTON OF THE LINE PRINTER 
AND INSURE THAT THE DEVICE IS ON LINE. ENTER TEST 4 
AND ANY OTHER GPTION INFORMATION DESIRED, TEST IS « 
EXECUTED BY ENTERING THE RUN COMMAND, TWO ASTERISKS* 
WILL BE PRINTEO ON THE LINE PRINTER. THE DISTANCE ¥ 
BETWEEN THE ASTERISKS SHOULD BE EQUAL TO THE PAPER * 
AOVANCE CHARACTER SPECIFIED. 
WHEN THE CHARACTERS X*78* THROUGH X*7F* ARE 
SPECIFIED BY THE PACHAR GPTION THE PAPER IS 
ADVANCED acCCORODING To CHANNELS 1 TO 8 ON VERTICAL 
FORMAT TAPE. 
THIS TEST MAY BE TERMINATED BY THE USER AT ANY 
TIME 8Y DEPRESSING THE BREAK KEY. THIS TEST SHOUL 
BE EXECUTED ON THE 02-307 INTERFACE ONLY. 


OPTIONS $ 
THE FOLLOWING OPTIONS ARE APPLICABLE TO THIS TEST, 
DEVADR TEST se TIMVAL eNOMSG PACHAReLOOP & CONTIN. 


ERROR: 
OLO0L+ 0404, O407+ 0408. 0409+ 04104 B411e O412, 
0413. 


eee HK HH HEH HH HE 


» 
* * eK kK eK RK KEK KK KK KK KK Ke KH KR KK K KK & 


FST4 BAL RET*SET2 SET FOR INT+DEVADR ETC. 
BAL RTWAeSTACHK RETURY IF GOOD STATUS 
wO DEVeLF1 ONE LINE FEED 
BAL RTNA+STACHK 
WO DEV+STAR FIRST x 
BAL RTNAeSTACHK 
WO DEV«CR 
BAL RTNA+STACHK 
wd DEVsPACHAR+7 PAPER ADVANCE CHARACTER 
BAL RTNAcSTACHK 
WO DEV«STAR SECOND * 

BAL RTNA+STACHK 


wD DEVeLFi LAST LINE FEED 


BESSR ESS 09/13/77 
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ct P18e1e --~--- 


CLP18020 
CLP18030 


~~ €LPL8O4E 


cLP18050 
CLP18060 


EP 18070 


CLP18080 
cCLP18090 
cLP16100 
cLP18110 
CLP18120 


- €LP18130 


cLP18140 
cLP18150 
CLP18168 
clP18170 
CLP18180 
CLP18190 
cLP18200 
CLP18210 
CLP18220 
CLP18230 
CLP18240 
CcLP18250 
CLP18260 
CLP18279 
CLP18280 
CLP18290 
CL©18300 
CLP18310 
CLP18320 
CLP18330 
CLP18340 
CLP18350 
€LP18360 
CLP18370 
CLP18380 
CLP18390 
CLP18400 
CLP18410 
CLP18420 
CLP18430 
CLP18449 
CLP18450 
CLP18460 
CLP18470 
CLP18480 
CLP18490 
CcLP18500 
CLP18510 
CL°18520 
CLP18530 


CLP18540 


“ey 
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& CORMON LINE PRINTER aes 06-1 70N96RO2A13 PAGE 82 10354311 09/13/77 
C TESTS 
emai dent Ni tn RO es Rn Ot LE RS FE te ee eta te 365 7 a Sr a ch Gee ses ae Renee ae Bess isa” abate nimmee aR” Ap 4B tao Pla cnet se Ta atlas Bice, Be. Aust Peitle Sesh geese CLP16576---- Basse haces 
€ 1858 *# # ee eee REE EER eR Re KR eK RE EH CLP18S5a0 
1859 +. * CLP18590 
ee es eS Spe wipetshr ets Anipemcern nad oemapta ig Neat Ct) hate, Jt wr 3 4 -2860 a OF EQ FG. --- eee. * Bien Beh ay Ah VES esos net nals ~ELPLE600 
€ (1861 ¥ * cLP18610 
1862 * PURPOSE: ; * CLP18620 
Torr sae ne nan carenemerce ss mem ew esas cess OG Ro --FHE- WRITE BLOCK: TEST IS USED TO TROUBLESHOOT THE --* €ELP18638 
¢ 1864 * INTERFACE. ¥ CLP18640 
1865 «* x CLP18650 
~~: 1866 * DESIGN SPECIFICATIONS: * CLP18660 
( 1867 * THIS TEST LOADS THE 80 BYTE BUFFER WITH SPACES &~ * CL°18670 
1868 * THEN CONTINUOUSLY OUTPUTS THE BUFFER TO THE LINE * CLP18680 
wine : 1869 * PRINTER INTERFACE USING THE WRITE BLOCK INSTRUCTION® €LP18690 
¢ 3 1870 * CLP18700 
1871 »* HOW TO RUN THE TEST: * CLP18710 
oe - : Highs Bie the Ie 1872 * DEPRESS THE POWER PUSHBUTTON OF THE LINE PRINTER * CLP18720 
< 1873 * AND INSURE THAT THE DEVICE IS ON LINE. ENTER TEST 5S* CLP18730 
1674 * AND ANY OTHER OPTION INFORMATION DESIRED. THE TEST * CLP18740 
ce : a 1875 « WILL EXECUTE UNTIL THE BREAK IS DEPRESSED, * CLP18750 
( 1876. * CLP18760 
1877 * OPTIONS: * CLP18770 
1878 * THE FOLLOWING OPTIONS ARE APPLICABLE TO THIS TEST, * cLP187380 
( 1879 * ODEVADReTEST & NOMSG. * CLP18790 
1880) * * CLP18800 
mo 1881 3 «* ERROR: * CLP18810 
( 2882 *« O561+ O50%,. OSFie GSF2. O5F34 GSF4%. O5SF5. * CLP18820 
1683 + * CLP18830 
1884 * © * #* & & KE RK KR KE RK KE ER KR KK KR KR RK KR RK OR EK CLP18840 
( 1885 * CLP18850 
190C 41Eq 1B8A2 1886 TESTS BAL RET+«SET2 SET FOR INTs OEVADR ETC. CLP18860 
19£8 - C8909 2020 1887 LHI BDATA+x*#20° CLP18870 
{ 19€4 c860 1CB2 1888 LHI CNT+BUFR , CLP18880 
1968 2471 1889 Lis INCRMTe1 CLP18890 
19E4 C680 1002 1890 LHI LIMIT, 8UFR+80 CLP18900 
( 19EE 0256 0000 1891 TSA STB DATAeO(CNT) FILL 80 SYTE BUFFER CLP18910 
; 19F2 Ci60 19EE 1892 BXLE CNT¢TSA CLP18920 
1L9F6 C87G 1Cs82 1893 LHI INCRMT «BUFR SET WB START ADR. CLP18930 
( 19FA 9647 18694 T58 WBR DEVeINCRMT WRITE BLOCK OF CHARACTERS CLP18940 
19FC 22601 1895 BS T5B LOOP TILL *S8REAK* DEPRESSED } CLP18950 
( 
( 
{ 
( 
( 
( 
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SUPPORT SUBROUTINES 


| Ad 
Se ree iment cae ee EF oe alae habia he Se dinlenae eee i ism say fs iain Dah Pak matinee aces Test da Natale etek: 2 : ‘ - CEP18970 Ge eele Riou 
1898 *«¢* €e eee KEKE EE EK Eee HET KE KC EE KE F CLP18980 
1899 « * CLP18990 ue 
“ : 1900 «© LOBUFE. * - ~ -CLPE9000 os soe 
1901 «* * CLP19010 € 
1902 * THIS ROUTINE LOADS THE LP BUFFER AND PRINTS A _* CLP19020 
iy pe lates SEs as osheca i ing boned tans OG, aie 1903 * LINE UNDER INTERRUPT CONTROL: OR SENSE STATUS,- ied CLP290390 secre ere 
1904 « * CLP19040 € 
1905 «* ERRORS APPLICABLE TO THIS ROUTINES * CLP19050 
1906 -+ XXF4 = SPUREOUS EXTERNAL INTERRUPT, * CLP19066 te he ere 
1907 * XX04 = AN INTERRUPT WAS GENERATED BY THE LINE * CLP19070 € 
1908 + PRINTER WHILE IT WAS OISARMED, * cLP19080 
- 1909 * XXO07 = BUSY FAILED TO 60 LOW IN THE TEReeeT PERIOD... -€4P19090 : — 
1910 « XX08 = DEVICE UNAVAILABLE, * cLP19100 C 
1911 * XX09 = PAPER OUT CONDITION EXISTS, * CLP19110 
1912 * XX10 = INTERLOCK CONDITION EXISTS, * -CLP19120 + occa 
1913 * XX1i1l = ONLY THE EX SIT SET. * CLP19130 ¢ 
1914 * XX12 = PAPER OUT DID NOT SET EX. * CLP19140— 
1915 * XxX13 = INTERLOCK DID NOT SET EX. * CLP19150 es 
1916 * XX14 = AN INVALIO STATUS BIT WAS SET, * cLP19160 oF 4 
1917 * XX15 = RECEIVED AN INTERRUPT WHEN ONLY THE 8USY * CLP19170 
1916 * BIT WAS SET. _ a, CLP19160 a 
1919 + * CLP19190 € 
1920 * XX= NUMBER OF TEST BEING EXECUTED, * =“ €LP19200 — 
1921 * * CLP19216 _ 
1922 2 ¢€ €* ee *& eK EK KEK EK KEK EEE KE KE HE E CLP19220 ( 
1923 * a ; wer CLP19230 
19FE o1B2 1924 LOBUF BALR RTNAsR2 RETURN IF. GOOD STATUS/INT CLP19240 
1A00 SAL 1925 0 WRT WOR DEVeDATA -° WRITE CHARACTER: IN LINE BUFFER CLP1925¢ ( 
1A02 c1Cqo 1A2€ 1926 BXLE CNT2«RETRN - RETURN. TO TEST ee LINE IS FULL CLP19260 
PACH 4806 17€€ 1927— 0 LH WORK eEXPAND+6 -.-. - ‘ELP192706 _ 
1A0A 2335 ; 1928 BzZS_ WRIEXP2 =. NOwWRETE END OF LINE CHAR CLP19280 ( 
1A0c C890 000E 1929 LHI DATAeX*OE? YES+LOAD EXPCHR INTO LINE BUFFER CLP19290 
1A19 01B2 1930 BALR RTNAeR2 RETURN IF GO0O STATUS/INT CLP193900 
1A12 9A49 1931 WRTEXP WOR DEV«DATA _ WRITE TO LINE SUFFER CLP19310 ( 
1A14 01B2 1932 WRTEXP2 BALR RTNAdCR2) RETURN IF G90D STATUS/INT CLP19320 
LA1E D390 17C0 1933 EOLSTA LB DATAeEOLCHR+6 GET END OF LINE CHAR CLP193306 
1A1A c590 9000 1934 CLHI DATA+x*0Dt IS IT A CARRIAGE RETURN ? CLP19340 ( 
1LA1E 2133 1935 BNES EoLi NO,GET SECOND EOL CHARACTER CLP19350 
1820 SAL 1936 WOR DEV+DATA YES+WRITE EOL CHARACTER cLP19360 
1A22 0182 1937 BALR RTNA+R2 RETURN IF GOOD STATUS/INT CLP19370 ( 
1A24 0390 17¢C1 1938 EoL1l LB DATAtEOLCHR+7 SECOND EOL CHAR CLP19380 
1428 949 1939 WOR DEVe+DATA WRITE SECOND EOL CHARACTER ~ CLP19390 
LA2A 430F 0002 1940 B 2(RTN) END OF LINE RETURN CLP19400 ( 
LA2E O30F 1941 RETRY BR RTN RETURN TO TEST FOR NEXT CHARACTER CLP19410 
L9G 2 Rem m meme ene n nn meen tenemos eens enn CLP19420 Ag 
1943 * CLP19430 ( 
1944 »* TO WAIT FOR PRINTER INTERRUPT CLP19440 
: 1945 « -CLPI9450 oo 
1A30 4810 1764 1946 WAIT LH VALUE. TIMVAL+6 ESTABLISH TIMEOUT VALUE CLP19460 , 
1A34 2471 1947 LIS INCRMTe1 ESTABLISH INCEREMENT VALUE CLP194%70 S 
1A3G = C860 TFFF 1948 LHI LIMIT«X*7FFFE SET BXLE LIMIT CLP19480 -~ 
1A3A O8AA 1949 LHR CNT3+CNT3 IS THIS FIRST LINE? CLP19490 


1A3C 2138 1950 BN2ZS WAIT2 NO WAIT non INTRPT CLP19500 < 


aorareee gareer a 


-YES-ES FHIS-FIRST- CHAR? 


NO WAIT FOR INTRPT 
SAVE RTWA REGISTER 


~ 66 TO SENSE STATUS 


RESTORE RTNA REGISTER 


SENO INVALIO CHAR Te GEN INTRPT 


GET EINTRPT PSW - 

ENABLE INTRPT aPRoC LEVEL 
ZERO CNT REGISTER 

WAIT FOR INTRPT 

DECREMENT TIMEOUT VALUE 
LOOK AGAIN FOR INTRPT 

SET ERROR 02 


"ERROR TTNN® 


INT OCCURED WHEN DISARMED 
GET INTERRUPTING STATUS 
PROCESS IT FURTHER 


ESTABLISH INCREMENT VALUE 
SET AXLE LIMET 


SENSE DEVICE STATUS 

INCR MODE 

ZERO REGISTER 

WRITE STATUS ON OITSPLAY 8 = 15 
WRITE ZERO ON DISPLAY 0 - 7 
NON*RELEVANT STATUS BITS ARE SET 
DU BIT IS SET 


EX BIT IS SET 


PAPER OUT 
LOOK @ SY 


TEST RUN UNDER INT 7 


“|< e 
& seonnen. LINE. Guanes TEST Re UMAGROERTS ‘PAGE AY. 
C SUPPORT SUBROUTINES 
Ten ne nn CSE -HOO$-——--- ee BE | €LHT- - CNT2e1 
€ 1A42 2138 1952 BNES WAIT2 
LAgy 4060 1CB0 1953 STH RTNA+TEMP 
os tAGSB- - 4150-1489 1954 ‘BAL- - RTNAySTACHK 
¢ 1Aac 48B0 1CB0 1955 LH RTNA.TEMP 
1A50 SA4aT 1956 WOR DEVe INCRMT 
amar ae ~t&52----4G90 GASP ---- -- ~4957 WAIT? ~ -tLH- WORK +s PS¥ 
¢ 1A56 9550 1958 EPSR GFLGeWORK 
1A58 0766 1989 XHR CNT<«+CNT 
LASA C160 1ASA 1969 BXLE CNT ex | 
( 1ASE 2711 1961 sts VALUE ,1 
1A696 2037 1962 BNZS WAIT2 
LAG? C&OG-- 3032 1963 LHI WORK +C*#92° 
( 1A66 4060 16BE 1964 COMERR STH WORK -ERRNO 
1AGA 41Fo aEDS 1965 BAL LINKeERR 
LAGE 4300 OG&C 1966 8 TSTEND 
¢ ‘Ty A Ct 
1968 « 
1969 »* TO CHECK STATUS @ INTERRUPT 
t 1970 «=¥* 
1A72 4800 179C 1971 INT LH WORK es INTRPT+6 
1A76 4330 190C 1972 B2 ERROY 
t 1A7A 0330 1652 1973 L868 STATsINTSTA 
LATE 43u0 1A94 1974 B SENSE1 
VSTS§ Femme nnn nee nner ese snrece 
n i976 * 
1977 »«* TO SENSE & CHECK PRINTER STATUS 
1978 «x 
( 1A82 4819 1784 1979 STACHK LH VALUE, TIMVAL+6 
1A86 2471 1980 LIS INCRMTe1 
= 1A68 C&8CG FFFF 1981 LHI LIMIT sX*7FFE® 
( 1A8C a766 1982 ZROCNT XHR CNT«CNT 
LABE 9043 1983 SENSE SSR DEVeSTAT 
1490 D230 1652 1964 STB STAT.ERRSTA 
( 1A94 DE7C 1C4a 1985 SENSE oc INCRMT ee ENABLE 
1A98 0700 1986 XHR WORK «WORK 
1A9A SATR 1987 WOR INCRHT.STAT 
rl LASC 9A7O 1988 wOR INCRMT,. WORK 
1LA9SE C330 QOGA2 1989 THI STAT eX*A2* 
1AA2] 4230 1842 1990 BNZ ERR14 
( 1AAG6 C330 0001 1991 THI STATel 
LAAA 4230 1AEG 1992 BNZ DU 
LAAE C330 9004 1993 THI STAT «4 
‘ 1AB2 4236 1AFE 1994 BNZ EX 
1A86 C336 0010 1995 THI STAT+X*10°9 
LASA 423@ 1816 1996 BNZ INTLOC 
: LASE C330 0040 1997 THI STAT eX*4H0? 
: 1AC2 «= 4230 1826 1996 BNZ PAPOUT 
LACE. €330 9068 1999 THI STAT eS 
( 1ACA 0338 2000 BZR RTNA 
1ACC 4600 1C3A 2001 LH WORK »s INTRUN 
1AB0 4230 1852 20Ga BNZ ERR15 
F 1AD04 C169 1A8E 2003 BXLE CNT+SENSE 
> 1AD8 anne 2004 sIs VALUE el 
( 


CEPLOS10 ~~ - 


CLP19520 
CLP19530 


- CLP19540° 


cLP19550 
CLP19560 


' CkPLISTO 


CLP19580 
CLP19590 
CLP19600 
CLP19610 
CLP19620 
€LP19636 
CLP19640 
CLP19650 
CLP19660 
CLP19670 
CLP19660 
CLP19690 
cL°19700 
CLP19710 
CLP19720 
CLP19730 
CLP19740 
CLP19750 
CLE19766 
CLP19770 
CLP19760 
CLP19790 
CLP19800 
cLP19810 
CLP19820 
CLP19830 


CLP19646 . 


CLP19856 
CLP19860 
CLP19870 
CLP19880 
cLP1989¢c 
CLP199006 
CLP19910 
CLP19920 
CLP19930 
CLP19940 
CLP199506 
CLP19960 
CLP19970 
CLP19980 


CLP199906 


cLP20000 
cire20010 
cip20020 
CLP20030 


ciP20040 


Fed 


ice ~LADA ths Sie 


1ADE 
1AE2 


1AE6 
LAEA 
LAEE 
1AF2 
1LAF6 
“LAFA 
LAFE 
1802 
1806 
1B0A 
1BOE 
1812 
1816 


C330 


4239 
c800 
4300 


4230 
€336 
4236 
c800 
4300 
C330 
4236 
£336 
423 
c&uo 
4300 
C330 
4230 
C8&O0 
4300 
C330 
4239 
c8&u0 
4300 
cé090 
2306 
cacao 
2303 - 
C8UD 
4000 
41F 0 
4300 
c8uo 
228 


ABE 


3037 
1B46 


SUPPORT SUBROUTINES 
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x 


* ROUTINES TO PROCESS ERRONEOUS 


* 
DU 


EX 


INTLOC 


PAPOUT 


ERROGD 
ERR10 


ERRI4 
COMERR2 


* TO SET 
*. 
SET > 


COMMON LINE PRINTER TEST 06°170N96R02A13 


THI 
BNZ 
THI 
BNZ 
LHI 
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ZROCNT 
WORK +C*'O7? 
COMERR2 


STATsX*108 
INTLOC 
STAT ox*4uge 
PAPOUT 
WORK .C*O8? 
COMERR? 
STAT«X*10*# 
ERR10 
STAT eX *408 
ERRQYD 
WORK.»Celisr 
COMERR?D 
STAT «4 
ERR10 

WORK .~C*138 
COMERR? 
STAT e4& 
ERRGS 

WORK eC*12* 
COMERR2 
WORK,»C#O9? 
COMERR? 
WORK:sC*10? 
COMERR? 
WORK »C*14e 
WORK -sERRNO 
LINK-sERRS 
TSTEN) 


“WORK eC*15# 


COMERR? 


TEST 1e 2e 


WORK «INT 


WORK eNEVINT 


LINK +K3RD 


DEV «eDEVADR+6 


DEVs+DISARM 
CNT3e¢CNT3 


CNT3-+INTRUN 
RTNAsSTACHK 


DEVtFF 


RTNA+STACHK 


BuMP,.1 
LINK,LWSET 


WORK «PSW2 


SET ERRNO = O7 


STATUS 


INTERLOCK BIT IS SET 
NO,SET ERRNO = 08 
INTLOC BIT IS SET 


SET ERRNO = 11 
NOs SET ERRNO = 13 


NOeSET ERRNO = la. 
ERROR # TTA 

ERROR # TT10 

ERROR # TT14 

"ERROR TINN' & "STA SS* 


EXIT TEST 
ERROR # 15 


SET INT RETURN ADR 
GET DEVICE ADORESS 
ZERO LINE COUNT 


RETURN IF g00D STATUS 
FORM FEED 


SET CHAR INCREMENT 
SET LINE WIOTH IN R14 


CLP20050 - 


cLe20060 
cLP20070 


- €LP20080 


cLP20090 
cLP20100 


-- €LP20110 


CcLP20120 
CLP20130 
cLP20140 
CLp20150 
cLP20160 


-CLP20170 


cLp20180 
CLP20190 
cLP20200 
CLP20210 
CLP20220 
CLP20230 
CLP20240 
CLp20250 
CLP20260 
cLP20270 
CLP20280 
cLP20290 
CLP20300 
CLP20310 
CLP20320 
CLP20330 
cLP20340 
CLP20350 
CLP20360 
CLP20370 
cLe20380 
cLP20390 
CLP20400 
cLP20410 
CLP20420 
CLP20430 
cLP20440 
CLP20450 
CLP20460 
CLP20470 
CLP20480 
cLP20490 
CLP20500 
CL°20510 
cLP20520 
cLP20530 
cLP20540 
cLP20550 
CLP20560 
CLP20570 


cLP20580 
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C SUPPORT SUBROUTINES 
ERR + ES + ~ 2059 EPSR  QFLG WORK “—DESABLE--INT-@- PROCESSOR LEVEL —“CEPBOS9E oe ee 
C 188A C820 1A82 2060 LHI R2eSTACHK SET R2 FOR TEST UNDER SS CLPe20600 
188E 4800 179¢ 2061 LH WORK ec INTRPT4+6 LOOK a INTRPT OPTION CLP20610 
1892 -033¢ ~—-- 2062 BZR R12) RETURN: TO TEST CLP20620 
C 1894 4000 1C3A 2063 STH WORK e INTRUN SET FLAG CLP20630 
1898 C820 1A30 2064 LHI R2eWAIT SET R82 FOR TEST UNDER INT CLP20640 
— t89C-- -BE4O- TOGA 2065 oc DEV vENABLE Ce CLP20650 
¢ 1BA0 8©.:030¢ 2066 BR R12 RETURN CLP20660 
2067 9 #-- one-one o-oo +--+ + ee cLPe20670 
2068 « cLP20680 
¢ 2069 * TO SET UP FOR TESTS Oe 4s 8 5 CLP20690 
2070 «| CLP20700 
- 1BA2 «C800 196C 2071 set2 LHI WORK -ERROY CLP20710 
( 1BA6 4000 1C48 2072 STH WORK +DEVINT “SET FOR INT CLe20720 
IBAA 41FO 135€ 2073 BAL LINK eK3RD CLP20730 
1BAE 40s O00 2074 XHR MORK @ WORK CLP20740 
( 18B0 4000 1C3A 2075 STH WORK « INTRUN RESET FLAG FOR RUN UNDER INT CLP20750 
1BR4 4840 1748 2076 LH DEV DEVADR+6 GET DEVICE ADORESS CLP20760 
1888 DE4O 1C4C 2077 oc -DEVeDISARM CLP20770 
‘ 18aCc 480N NAd2 20728 iH WORK -eOSU clLpanran 
. 1Bc0 9550 2079 EPSR  QFLGsWORK ENABLE INT 3 PROCESSOR LEVEL cLe20790 
1BC2 030€ 2080 BR RET RETURN TO TEST cLP20800 
( 2081 +*------ ee aew cannes ween e----.---- sue cLe20810 
2082 +* CLP20820 
2083 * TO CHECK END OF TESTS ile 22 & 3 cLp20a830 
( 2084 +« CLP20840 
18C4 26A1 2085 CHKENO- AIS CNT3 el CLP20850 
1BC6 46 454g 1036 2086 CLH CNT3sLINES ALL LINES PRINTED ? CLP20860 
( 18cAH = 4330 ODEC 2087 BE TSTEND CLP20870 
18CE 4800 1790 2088 CHKEND1 LH WORK sHALT+6 LOOK AT HALT OPTION CLP20880 
1BD2 ©4330 1C02 2089 BZ CHKEND3S CLP20890 
( 1806 4OFO 1F18 2090 CHKEND2 STH LINK. TRSAVE SAVE RETURN REGISTER CLP20900 
1804 41Fo 135€ 2091 BAL LINK eKBRD LOOK AT CONSOLE CLP20910 
1BDE 0300 165A 2092 LB WORK sCONADR GET CONSOLE ADDRESS CLP20920 
‘ 13f2 o€60 1669 2093 oc WORK sCONENRD ENABLE CONSOLE AGAIN CLP20930 
18—&6 4 8©6 9D 2094 WAITLE SSR WORK DATA IS CONSOLE 83SY? cLP20940 
1868 ©2081 2095 BT3bS Bel YES CHECK AGAIN cLp20950 
; 1BEA OBO 1F1C 2096 RD WORK sHLTSAVE NO LOOK FOR LF KEY. CLP20960 
1KEE 0300 1F1C 2097 Lb WORK sHLTSAVE CLP20970 
. 1BF2 C700 ovoA 2098 XHI WORK eX"OA* WAS IT LF KEY? cLP20980 
1BF6 =. 2038 2099 BNZS  WAITLFE NO LOOK AGAIN. CLp20990 
( 1BFS8 2460 2100 LIS WORK «XtO8 CLP21000 
1BFA D200 1F1C 2101 STB WORK sHLTSAVE CLEAR THE LF FLAG, cLP21010 
18FE 0 48Fo 1F18 2192 LH LINK+s TRSAVE RESTORE RETURN REGISTER cLP21020 
( 1C02 4OFO 1F18 2103 CHKEND3 STH LINKs TRSAVE SAVE RETURN REGISTER CLP21030 
1006 41FO 1282 2104 BAL R15eTSTBRK CLe21040 
1COA 48FO 1F18 2105 LH R15eTRSAVE CLP21050 
( 0000 1C0E 2106 CHKEND& €@U * CLP21060 
1COE  O30F 2107 BR LINK cLPp21070 
2108 Foren n own o-oo eee CLP21080 
: 2109 * CLP21090 
2110 «* TO SET # OF CHARACTER/LINE IN R14 CLP21100 
2111 « cLp21110 
: 1C10 LWSET 


LH LIMIT2+LINEWIO GET LINE WIOTH 


: Lo : 


cLPe21120 


LERNER Te Tcl oe 


1€18 
1C1iA 
1€1C 


1CiE 
1C22 
1C26 
1C2a 
1C2eE 
1C32 


1C36 
1038 
1C3A 
1C3C 
1C3E 
1040 
1042 
1C44 
1046 
1C48 


1C4HA 
1C48 
1c4c 
1C49 
1C4eE 
1C4F 
1¢59 
1¢51 
1052 
1€53 


1CSE 
ic6a 
1€62 
1C44 
1C66 
1C68 
1C6A 
1C6C 
1C6E 
1C70 
1C72 
1c74 
1C76 


SUPPORT SUBROUTINES 


48.0.0 1766 


O35F 
90E1 
O3GF 


c800 3031 
4000 168E 
4040 1650 
G1FO 11D4 
41FO OFFS 
4300 OAEA 


oA 
00060c12 
181E 242A 
3U36 
UVOGO 
UOSC 
6138 
o1D04 
0270 
O3UC 
03Aa 
C444 
O4EO 
o57Cc 
18AQ 
1920 


1938 


2151 
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WORK ¢EXPAND+6 LOOK a-EXPAND..OPTION.. -. .... 
LINK 
LIMIT2e1 
LINK te anes oes 


* TO PRINT tERROR TTO1' MESSAGE. ee 


* 
ERRO1 


* 

LINES 
LINEWID 
INTRUN | 
MAXTST 
DEFTESTS 


INTLYL 
DEVSADR 


DEVINT 


* 
ENABLE 
DISABL 


CONSTT 


TESTS 


LHI 
STH 


oc 


DATA. CONSTANTS 


wORKeCto1? 
WORK eERRNO 
DEV+ERROEV 
LINK eCRLE 

LINKeERRO | PRINT teERROR TYO1t & *OEV ODD® 
OPTIN © 


SET ERROR # 01 


* 


60 . 

132 : LINE WIOTH IN HEX 
ff) 

5 
K*F000",0 TESTS O41¢203 
8 'e 

O,yeol 


0 


y?4o9 

x?8Gor 

x?*cor 

x*20° CHARACTER SAVE AREA TEST 2 
xt2a* CHARACTER SAVE AREA TEST 3 
Xt2ae : 

xracer 

x'oo? 

Xonar 

0569124184244 30 4 365 42448,54 


015663124468 26244780 29362109201248.1404 


TESTOsTEST1, TEST2+e TESTS, TEST4, FESTS 


CLP211350.. 


CLP221140 
ciLp21150 
CLP21160 


‘CLP21170 


cLpP21180 


--CLP21190 


CLp21200 
CLP21210 
CLP2122¢ 
CLe21230 
CLP21240 


CLP21256 


CLP21260 
CLP21270 
cLp21280 
cLP21290 
CLP21300 
CLP21316 
CLP21320 
cLP21330 
cLP21340 
cLp21350 


CLP21360 
CLP21376 


cLP21360 
CLP21390 


CLP21400 


CLP22419 
CLe214209 
CLP21430 
CLP21449 
CLP21450 


CLP2146¢c 


CLP21470 
CLP21480 
CLP21490 


CLp21500 


CLP21510 


wo LE FQ  -2GTG. - Lh 2 at : ‘ - Sco tsa se te 


€ 1C7A 9-1 9G 
ic7c 3:19 . : 
2 CTE «HSH DAD. - 2152 TITLE nc -C'COMMON LINE PRINTER TEST 06-170R02 . ‘'sxtoD00! CLP21520 
c GFYEDO4C . 
494E4520 
paler fittee o % e ag SOSauquFr- : 2 ras cycles 
P 54455220 
54455354 
20303620 
‘ 31373052 
30322020 
20202020 
‘ 1Cca6 = D0 
2153 « CLP21530 
. 0000 1CA7 2154 LNZB Eau ree | LAST BYTE OF TEST PROGRAM CLP21540 
SIGS -ebews snawadetasun wea dutctsecnceuom. . CLP21550 
( 2156 « | ! 3  CLP21560 
2157 »* STORAGE AREAS ; CLP21570 
; | . 2158 + - €LP21580 
2159: CLP21590 
1CAB 2160 IF1 IF 1 CLP21600 
1CA8 2161 ALIGN 4 CLP21610 
1CA8 2162 opTBUF DS 6 CLP21620 
1CAE 2163 IOSAVE 90S 2 - GLP21630 
F 1CRG 2164 TEMP oS 2 CLP21640 
1CR2 2165 BUFR DS 80 CLP21650 
1002 2166 TEMP2 oS 2 CLP21660 
1D9a 2167 ALIGN 8 CLP21670 
( 1098 9000 G00 2168 pswSAyVE OCY 0.0 CLP21680 
1D0C = 0060-0000 
1010 2169 RSAVE ps 128 CLP21690 
1090 2170 INTSAV oS 64 CLP217060 
LOD0 2171 ERRSAVE os 64 CLP21710 
1£19 . 2172 DS . 264 . : CLP21720 
1F18 2173 TRSAVE 98 4 -  €LP21730 
Fic 00 2174 HLTSAVE 0B 0 CLP21740 
; 1F10 = 0 2175 8 0 . . cLP21750 
1F1E 2176 Ds 60 CLP21760 


a 
eae . | 

iz 4 COMMON LINE PRINTER TEST 06-170m96R02A13 PAGE 48 10554325 09/13/77 
€ SUPPORT SUBROUTINES ; 


t COMMON LINE PRINTER TEST 06-170N96R02A13 
C CHSSUM/17 PUNCHER 
von ee ESA 2400 --.- ~2178 SCHKSUM. 
C 1F5C 9510 2179 
2180 « 
1F5E C8io6 oAcO 2181 
C 1F62 2424 2182 
1F64 C830 1CA7 2183 
4F68 --244¢ | 2184 
( 1F6A 0351 0000 2185 $GEN 
1F6E O745 2186 
1F70 Clio 1F6A 2187 
( 1F74 n240 0097 2188 
2189 + 
1°78 C8le 0680 2190 STAPE 
t 1F7C 9621 2191 
1F7E 9444 2192 
1F80 9824 2193 
( 1F 82 9414 2194 
1FA4 9501 2195 
( 1F86 N36e 007A 2197 $PUNCH 
1FBA O&6o 0078 2198 
C 1F8E 906e 2199 
1F90 2081 2200 
1F92 41F6@ 1FD4 2201 
( 1F96 9411 2202 
1F98 C830 OOCF — 2203 
1F9C A612 9000 2204 ¢$PNCH1 
( 1F AG 9D66 2205 
1FA2 2081 2206 
1FA4 C110 1F9¢C 2267 
( 1FAa 41F9 1FDA 2208 
2209 + 
1FAC D346 0097 2210 
( 1FB0 C810 oA00 2211 
1FR4 C830 1CA7 2212 
1F33 0551 0000 2213 $PNCH2 
( 1F3¢C U7T45 2214 
1FBE 9A6S 2215 
1FCO 9401 2216 
( 1FC2 9820 2217 
1FC4 906¢ 2218 
1FC6 208} 2219 
( 1FC8 C1lq 1iFRs 2220 
1FCC 41FO 1LFO4 2221 
1Fo0 43U0 1F78 2222 
( 
1FO4 C800 0100 2224 $TAPL 
( 1Fo8a 2303 2225 
1FDA C8u0 0055 2226 $TAPL1 
1LFDE 2701 2227 $TAPLP 
( 1FEQ O32F 2228 
1FE2 2430 2229 


tis 
EPSR 


LDAL 
LIS 
LDAI 


LES 


LB 
XAR 
BXLE 
STB 


LHI 
OCR 
EXBR 
WHR 
EXBR 
EPSR 
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ROeD 
R1eRO 


R1I+eORIGINI 
R2e1 
R3eLN2B 


R4eD 


R5eO(R1) 
R4¥eRS 

RieSGEN 
RG eMN43 


RieX*o9ao? 
R2<R1 
ReeRG 
R2aeR4 
RieR1 
ROeR1I 


ROX" 748 


REX" 788 
R6eRO 

&.l 
RiSeSTAPL 
R1seR1 
R3eX'"cre 
R6eO0{R1} 
R6eRO 

&el 
R1eSPNCHL 
R1i5¢$TAPL1 


R4eMN+3 
R1+ORIGINI 
R3eLN298 
R5ZeO(R1) 
R4eRS 
R6eRS 
ROe«R1 
R2eRO0 
R6+RO 

&el 
R1+SPNCH2 
R1iSe*STAPL 
$TAPE 


RO+256 
STAPLP 
RO785 
ROel 
R15 
R329 


10358226 09/13/77 


START 
INCREMENT 
FINAL 


CHECKSUM BYTE 


CHECKSUM BYTE TO BOOT LOADER 


DISPLAY : NORMAL MODE 
CHECKSUM BYTE TO 91. 
HALT PROCESSOR, 


GET BOUTDV (PUNCH) ADDRESS. 
START TAPE PUNCH 


PUNCH LEADER 
(R1) = X*0080° 


PUNCH BOOT LOADER 


PUNCH ONE-FOLD GAP. 


GET CHECKSUM BYTE 
(NORMALLY x'A00*) 


PUNCH PROGRAM 
DATA ADDRESS TO DYSPLAYe 


PUNCH TRAILER.» 


DISPLAY CHECKSUM+s HALT PROCESSOR, 


TO PUNCH BLANK LEADER 
TO PUNCH 1-FOLD GaP 


RETURN 


--€LP22700 


cLP21790 
c€LP21800 
cLP21810 
CLP21820 
CLP21830 
CLP21840 
CLP21850 
CLP21860 


‘CLP21870 


CLP21880 
cLp21890 
cCLP21900 
CLP21910 
cLP21920 
CLP21930 
cCLP21940 
cLP21950 


CLP21970 
CLP21980 
CLP21990 
CLP22000 
cLp22010 
clLp22020 
CLP22030 
CLP22040 
CLP22050 
CLP22060 
CLP22670 
CLP22080 
CLP22090 
CLP22100 
CLP22110 
CLP22120 
CLP22130 
CLP22140 
CLP22150 
CLP22160 
CLP22170 
CLP22180 
CLP22190 
CLP22200 
CLP22210 
CLP22220 


CLP22240 
CLP22250 
CLP22260 
CLP22270 
CLP22280 
CLP22290 


- ~tera- soe 


1FE6 
1FE8 


tFEA- 


LFEC 


CHSSUM/17 PUNCHER 


GAGS © 


9D68 
2081 


2206 - 
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22350 
2231 
2232 
2233 
2234 


2235 


RGWR3 
REeRB 
Bel 
STAPLP 
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~PUNCH-BLANK -FRAME- 


CONTINUE. 


CLP22300- 


CLP22310 
CLP22320 


“CLP22330 


CLP22340 
€LP22350 


ot 


t 


COMMON LINE PRINTER TEST 06-170N96R02A13 


CHKSUM/17 PUNCHER 


ene NO ERRURS-..-0-SQUEZ. PASSES -. 


¢ CAL 04-01 
€ $CHKSUM 1F5A 
sOEcl 1126 826 
Ct mee een em SOE GA ve were ne TBE 819. 821 | 
c SOEC3 113€ _ 8615 
SGEN 1F6A 2187 
sos os SPNCHI AFSC 2207 
( S$PNCH2 1FB8 2226 
$PUNCH 1F 86 
- STAPE. . - 1F 78. 2222 
{ STAPL 1F D4 2201 2221 
STAPLI1 1F-DA 2208 
STAPLP 1F OE 2225 2233 
€ ABoRT ob24 
ABSTUP 1FEC 
ADC 0662 105 147 
{ 1276 1282 
ADR ocBOo 
aF 15AC 1077 
ra AMSG 1734 217 
ASCIDEV 16E0 669 
a -ASCIDEV? 16FO 649 
( ASCILOC : 170% 683 696 
ASCIPSW 16FA 693 
: ASCISTA: 16E68 659 673 
A BOOT 0088 72 
BRKRTN 130C 964 994 
BRKVECT 167C 992 996 
( BTESTNOG 168C 451 469 
BUFR 1CB2 1888 1890 
BusP ooon 1592 2056 
( C300ADR nA18 
CARANU 1670 
CARRD 1664 
( CARRH2S 1678 
CHARI 1C4D 1726 1728 
CHAR? 1C4E. 1789 1791 
( CHKEND 1BC4 1675 1741 
CHKENUL 1BCE 
CHKENDA 1606 
4 CHKENDS 1C02 2089 
CHKENDY 1COE 
CLIF2ND  166C 
( CLIFAOR OA1LY 
CLIFRO 1660 
CNT 0006 1888 1891 
( CNT2 000C 1591 1607 
CNT3 OOOA 1949 1949 
COMERR 1A66 1621 
( COMERR? 1B46 2007 2017 
ComM™ 15C2 1273 1284 
( 


161 
1301 


486 
1893 


1733 
1793 
1798 


1892 
1671 
2051 


2923 
1307 


811 
1316 


510 


1959 
1727 
2051 


2027 


( 
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825 
1327 


546 


1959 
1790 
2052 


2031 


1981 


1960 
1926 
2085 


2033 


1153 


1982 
1951 
2086 


2035 


1167 


1982 


2041 


1176 


2003 


1188. 


1196 


1217 


1262 


C '  COMRET OF7C 619 
CON2ND 1668 182 = 191 
¢ -- -CONAOR. -s EBA 188 944 
re CONENRD 1669 1043 2093 
CONRD 165C 189 §=6190 
wee = = CONREZS a © oor 2 ‘ 176 194 
C CONST 1C53 1517 
CONSTT 1C5E€ 1514 
cite - CONTIN 275A 523 
( CONWRT 1650 1053 
COuNT 1686 483 499 
mh €R as 3-5 1848 
P CRLF 11D4 205 212 
CRT2NO 166A 
CRTRU 165E 
( CRTRQ2S 1675 
DATA 0009 1594 1608 
1793 1795 
( -DECASC 111C¢ 
-  DECHEX 1624 1487 
DECHEX1 1866 
‘ _ DECHEX2 1870 1502 1507 
DECTAB 1692 813 
; DEFTESTS - 4C3E 383 = 385 
¢ DEY 9004. 1534 1535 
1894 1925 
. 2123 
( DEVADR 1742 1534 2049 
DEVINT 1048 ; 1213 1589 
DEV4SG 160C 675 
( DEVMSG2 16EC . 651 
DEVSAODR 1044 1110 1207 
NISABL 1C48 1606 
( . DISAR4 1C4C 1536 2050 
ou 1AE6 1992 
ECHO 126C 937 1160 
( ECHO1 1268 935 
ECHRTN 1282 943 
ENABLE - 3C4a 1600 1612 
EOL1 1A24 1935 
( EOLCHR 17BA. 1933-1938 
EOLSTA 1A16 
EOTMSG 1724 526 
( ERR oEDS 1292 1965 
ERROI 1C1E - 1537 
ERROY 190C 1616 1619 
ERROF 1B36— 2021 2029 
ERR1 oF 94 582 591 
ERR10 183C 2019 2025 
( ERR14 1842 | 1990 
ERRI5 1852. 2002 
ERRALL OFGA 1242 1252 


( ERRCOM OF 62 581 590 


192 
965 


941 
195 


501 


276 


1672 
1887 


1512 


1536 
1931 
2076 
1604 
1538 


2077 


1985 


1625 


596 


595 


tree ee litres elle i len oe ant a aac tite, Gai, gat Ph ethene RAt eH od i 
by - COMMON LINE: PRINTER TEST 06-170N96R02a13 
C CHKSUM/17 PUNCHER 
Seeeetnemtaememes 32) 11. t Se aes aati $338 


1376 
1027 


1028 
1033 


318 


1728 
1891 


1538 
1936 


2047 


2065 


1972 


601 


600 


PAGE 


1039 


1368 
1042 


344 


1729 


1925 


1600 
1939 


2072 


1104 


411 


1730 


1929 


1606 
1956 


1179 2092 
414 561 
1732 1733 
1931 1933 
1612 1844 

2049 


1983 
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' 953 


1735 
1934 


1646 
2050 


2324 — 


1736 
1936 


1846 


2054 


1738 
1938 


1850 
2065 


1791 
1939 


1852 
2076 


1792 
2094 


1854 
2077 


on 


CHKSUM/17 PUNCHER 


€ 
o> ith eae tes Re Ste -~ERREOMLT eaten wate dk. -~OF FE. 
C ERRCOM2 OEE4 
ERRO oEFS 
soe oe JERR. — «GF SE 
€ ERRDEV 1650 
ERRDS OF 1E 
€ ERRL OF32 
ERRL1 OFF4 
ERRLVL 1720 
t ERRMSG 16B6 
ERRNO 16BE 
- ERRPLI 106C 
F ERRS OFOA 
ERRS1 OFB6é 
- ERRSAVE 1000 
t ERRSTA 1652 
ETESTNG 16BC 
EX LAFE 
{ EXPAND 17C6 
FF 1€50 
FIRST - $640 
{ FOUNODL OD4A 
FP 159A 
- §SETCHR 125% 
( HALT 178A 
HALTS OEBE 
HEX aSC LOF4 
( HEXASC1 10FE 
HEXTAB 169C 
HLTSAVE 1F LC 
( IFi 1CA8 
Il 1560 
II32 15F6 
( IMPTOP 00008 
Incr 1655 
INCRMT 0007 
a INIT 1882 
INITRET 0026 
INT 1A72 
( INTO 1904 
INTOO 1914 
INTCONTR 1876 
( INTOEV 1650 
INTLEV 1772 
INTLOC 1816 
( INTLVL 1042 
INTLVL™ 170A 
INTASW 1644 
( INTRPT 1796 
INTRUN 1034 
INTSAV 1090 
‘ INTSTA 1652 


10 OA10 


623. 


593 
2125 


592. 


648 


602 


608 


1251 
640 
445 
614 

2038 
597 
580 
658 
444 

13994 

1927 

2054 
286 
422 

1088 
227 

2088 
545 
475 
801 
303 


2096 


1073 
1303 


537 
1889 
415 


2046 
1588 
1603 


1151 


1996 
1224 
1254 
1185 
1971 
2001 
1170 
1152 

165 
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598 


668 


613 


1241 
1234 


587 
672 
477 
2113 


293 
428 


339 


558 
650 


707 — 


2097 


1893 


1186 


2013 
1530 


1204 
2061 
2052 
1177 
1187 

166 


603 


2123 


1249 


589 


1984, 


297 


705 


6354. 


660 


757 
2101 


1394 


1203 


2063 
1202 
1355 

174 


1272 


594 


714 


679 


797— 


1947 


1353 


2075 
1234 
1973 

175 


( 


PAGE 


1281 


| §99 


674 


822 


13956 
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I0,0K2 
I0.0K3 
IOSAVE 
ISITERR 
KBINT 


~ KBINTO 


KBINTOO 
KBINTOA 
KBINTIB 
KBINTOC 
KBINT1 
KsInTt2 
KBINTS 
KBRD 
KBRD1 
KBREAD 
KEEPL 
KEEP1O 
KEEP101 
KEEP] 
KEEPS 
KEEP4Y 
KEEP41L 
KEEP42 
KEEPYS 
KEEPS 
KEEPS6 
KEEP? 
KEEP7L 
KEEPS 
KEEP9I1 
LADC 
LEORE 
LCORES2 
LCORE324 
LDOQUF 
LOWT 
LEADER 
LEVEL 
LF 1 
LIMIT 
LiIsrt2 
LINES 
LINEWID 
LINK 


GATE 
OATC 
OA9A 
4CAE 
167E 
167A 
143C 
147A 
147E 
1468 
1458 
1488 
14AE 
1498 
195E 
1370 
1342 
0032 
oE9C 
oEC2 
0040 
0078 
0-82 
0086 
009C 
ODA2 
ODA 
OODA 
OEOA 
0E18 
oE54 
062 
0001 
1390 
1404 
142C 
L9FE 
oucé 
OOA0 
ocBS 
1¢52 
0 08 
000E 
1036 
1038 
o00F 
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2073 


853 


549 


548 


466 


810 
446 
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584 


2091 


1673 


1981 


1003 
624 


t 


1749 


212 
328 
509 
641 
744 
893 
1111 
1741 
2116 


1022 
856 


1796 


1050 
954 


218 
339 
522 
652 
777 
932 
1242 
1965 
2125 
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220 
344 
525 
660 
781 
949 
1252 
2038 


276 
345 
527 
662 
803 
953 
1256 
2048 


279 
411 
557 
670 
828 
954 
1292 
2057 
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284 
414 
561 
674 
833 
956 
1293 
2075 


296 
415 
564 
676 
850 
964 
1481 


2090 


297 
446 
567 
684 
860 
1013 
1490 
2091 


301 
475 
570 
686 
869 
1015 
1531 
2102 
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noone >. cn ~~ 4GAF 
LOAD OOAA 
LOCMSG 1700 
£GOK1 ~- + O64 - 
LOoOoK2 0Bé6é8 
LOOK3 oB78 
LOOK4- - -- -- --§0 84 
LOOK5 OCAO 
LOOKUP 0860 
LOOP ~ THE 
LPADR OA1L6 
LPwWwRT 1662 
“LVLERR 1576 
LWIDTH 17D2 
LWSET 1C10 
MAXTST 1€3¢ 
MICROBUS OALA 
MM 15FA 
MA1L6 1630 
4M32 161A, 
MN OuU94 
“Onze 1642 
MRE ADC 1666 
MTESTNO 1682 
NEXTST 1690 
NOERMSG 1602 
NOERR 1680 
NOMSG 1766 
NORM 1654 
OLOC 164E 
OPSw L6O4A - 
OPSw32 1648 
OPT 1736 
OPTBUF 1CA8 
OPTCMO | OBAY - 
OPTCi101 UBAG 
OPTCM010 Oc2E 
OPTCMD11 oc6o 
OPTCD1L2 OC6E 
OPTCMD2 oBCS8 
OPTCMOS OBCE 
OPTCNDY oBD4G 
OPTCMHO5 OBEG 
OPTCANSE OBF6 
OPTCMD7 ecoe2 
OPTCMD71 oci4 
OPTCKDS oc22 
OPTCMDS oceac 
OPTEND 17DE 
OPTEND2 17DE 
OPTIN CAEG 
OPTING OAEA 
OPTION 170E 
OPTRIN oB98 
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2057 


2210 


152 
1148 
474 
456 
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682 
1157 


278 
224 


337 


341 
$593 
272 


¢ 
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476 
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1227 1289 1326 
1194 1288 1325 : _ 
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225 238 246 257 


365 387 407 526 576 993 
1244 1257 1295 2126 
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1302 1317 
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C 


-_ 


- “OPT AL 
OPTVALO 
OPTVAL1 
OPTYAL2 
OPTVAL3 
OPTVAL4 
~ORIGINA 
ORIGIN 
ORTGING 
OGRIGING 
OTC. 
OTc,.0 
OTCc.1 
oTc.4 
OUTO 
OUT1 
OUTCHR 


OUTCHR2 


PRINT3AB 
PRTIHTS 
PSt 
PSW2 
PSW4SG 
PSWSAVE 
PURETOP 
QFLG 
QMSS 
QUEST 
RO 
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1036. T22 
1038 710 
1044 704 
1048 718 
1056 T16 
PAO oo 76 
OA04 
OAS 
PADC 
11F0 907 
11F4 898 
120A 896 
1232 919 
124A 894 
124E 888 
11&2 218 

850 
1224 891 
1166 B44 
118C 852 
1196 838 
1806 1475 
17AE 1850 

-1600 1446 
1B26 1998 
1656 196 
1658 177 
0A12 
1252 892 
1154 207 
1146 855 
11B6 862 
11¢C8 : 868 
11CA 871 
11CE 836 
0A22 585 
OA24 145 
16F6 698 
1008 73 
oog0o0rR 
0005 1590 
1732 , 955 
1288 221 
Qg000 181 
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433 
459 
502 
565 
621 
767 
856 
936 
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908 


912 
923 
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860 
899 


2015 
9793 
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a97 
480 
864 
885 


857 
1957 
153 


1100 


1590 


182 
333 
437 
462 
506 
573 
647 
768 
875 
938 


2211 


915 


279 
869 
905 


2078 
214 


917 


284 
873 


1040 


527 


4BY 


1605 


293 
384 
438 
473 
339 
983 
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790 
889 
957 


296 
8a4 


1133 


564 


497 


1605 


204 


301 


641 


620 


304 


652 


1990 
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323 


662 


1200 


328 


676 


1290 


1622 


225 


§70 


686 


2058 


1622 
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kgs cots - re PR eee AY ote ae NAR 989. -995 - 
C 1033 1038 
1071 1106 
7 1234 1299 
C 2205 2216 
R1 0001 76 86 
Re * e: gy eek 165 168 
C 226 235 
364 420 
489 497 
‘ 551 552 
682 692 
843. 866 
( 918 921 
1005 1006 
1051 1052 
os 1104 1105 
1329: 2179 
2207 2211 
( R19 o00A 1184 «1184 
1324 
Ril 9008 
( R12 ovoc 221 236 
1478. 1480 
R13 0000 
( R14 5 OO0E 275 311 
1288. 1304 
R15 OvOoF 207 227 
’ 709 713 
1315 1320 
R2 eo02 71 75 
( 175 176 
215 272 
324 329 
; 476 477 
; 586 590 
683 693 
: 837 969 
1124 1125 
1200 1201 
’ 1312 1313 
1924 1930 
R3 0003 77 167 
287 312 
770 778 
B49 a51 
F 1109 1113 
1516 1517 
R4 9904 79 80 
‘ 228 230 
300 302 
358 381 
773 776 
820 822 
( 


57 


1986. 


1044 
1146 
1334 
2226 
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1052 
1157 
1498 
2227 
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252 
443 
523. 
630 
770 
903 
975 
1014 
1064 
11190 
2191 
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369 
1724 


397 
1325 
417 
9o1 
2208 
148 
190 
280 
460 
537 
619 
753 
986 
1141 
1286 
1501 
2182 
200 
568 
795 
1074 
1136 
2229 
194 
246 
307 
719 
797 
84u6 


1813 


1053 
1170 
1520 


144 
189 
254 
444 
532 
631 
772 
904 
981 
1020 
1665 
1114 
2194 


1250 
373 
1787 
4al 
417 


992 
2221 


- 149 | 
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281 
467 
540 
624 
785 
IAG 
1148 
1281 
1503 
2191 
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571 
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1077 
1141 
2230 
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278 
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721 
797 
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1062 
1177 
1523 


151 


292 


259 
445 
533 
632 
794 
906 
984 
1021 
1667 
1158 
2194 


1259 
377 
2062 
729 


418 
994 


2228 » 
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192 


287° 
469. 
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625 
759 
1060 
1151 
1283 
1504 
2193 
253 
727 
8ag 
1078 
1142 


196 
283 
322 
754 
798 
848 


3921 
1062 
1191 
2178 


151 
193 
266 
4790 
534% 
648 
814 
910 
983 
1922 
1968 
1192 
2195 


1251 


394 
2066 


723 


605 
1266 


157 
199 
290 
470 
545 
649 
798 
1110 
1159 
1291 
1505 
2217 
257 
730 
810 
1088 
1152 
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288 
327 
755 
812 
859 


1112 
1178 
1299 
1506 


261 
730 
811 
1089 
1178 


137 
289 
340 
756 
812 
861 


1003 
104a9 
1972 
1201 
2202 


1311 


711 


1265 


706 
12a9 
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581 
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1179 
1300 
1517 
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1102 
1187 
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RS 


R58 
R581 
RSB2 


“RSBS 


RSB4 
RSBIN 


‘RSHE X 


RSX 
RSOXA 
RSXB 
R6 


RT 

R& 

R? 
RCHAR 
RCONTR 
ROCHARG 
ROCHR 
RDCHR1 
RET 


RETOPS% 
RETOPSwt 
RETR 


SET.RTN 
SET2 
SETKB 
SETUP 
SINK 


) 
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9005 


10CcA 
1004 
100C 
10€2 
10F0 
10B8 
108E 
149C 
10AA 
1062 
0006 


e007 
0008 
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17A2 
17F8 


0v26° 


0818 
0644 
OOOE 


14BA 
14C8 
1A2E 
15A2 
1D10 


QoOoF 
0008 


17EA 
0D12 
1682 
1ABE 
1A94 
1858 
138E 
1BA2 
13534 
137A 


1653 
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88 
338 
728 
1249 
2199 
38 
90 
942 
1608 


248 
591 


663 
1149 


T36 
963 
1609 
1843 
2000 


511 


1724 


1842 
216 


1029 
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95 
364 
731 

1473 
2204 

39 

95 
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1672 
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1391 


T43 
997 
1673 
1845 
2053 
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1886 
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1207 
1477 
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330 
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945 
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1739 
1847 
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$71 
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1796 
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640 
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375 
1213 
1483 
2218 
405 
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1030 
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1294 
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1080 
1940 
1851 


1127 
2186. 
68 
310 
651 
* 955- 
1213 


178 

393 
1215 
1485 
2230 
1489 

406 
1161 


602 
1487 


780 
1232 
1941 
1853 


1135 


254. 


395 
1218 
1499 
2231 
1515 
2231 
1162 


607 
1522 


790 
1498 


1924 


255 
400 
1227 
1503 
1516 


1168 


608 
1587 


802 
1529 


1930 


1138 
2192 


99. 


389 
685 


~. £692 


1254 


242 


704 
12268 
1509 
1518 


1528 


612 
184e 


808 
1525 


1932 


319 


ea, 


704 
1230 
1515 
1519 


1529 
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1953 
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713 
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€ CHKSUM/17 PUNCHER 
em ae STE . ~--- BAGG. 150 
C STACHK 1A82 1595 1598 
STAMSG 16E4 661: 
-- STAR iC4F 1646 1852 
€ START OAG66 155 
START1 OA30 103 160 
inert ow SFART! OASG 196 162 
i STARTS OASE 107 
START4 0AG2 108 
STAT 0003 1973 1983 
( 2020 2024 
TOA 18BE 1597 
TOs- 16EA 1610 
{ TIA 1724 1676 
T18 192A 1674 
T2A 1944 1742 
ri T26 1956 1731 
T2c 195C 1740 
Fen 1968 1734 1737 
( TSA 1982 1799 
T38 13992 1794 1797 
TSA 1T9EE 1892 
é T5958 19FA 1895 
TEMP 1CBO 289 232 
TEMP?) 1UG2° 1519 1521 
( TEST 1736 274 86351 
TESTO 12A0 2151 
TEST1 1920 2151 
{ TEST2 1938 2151 
TESTS 1976 2151 
TEST4 L9A4 2151 
( TESTS -190¢C 2151 
TESTOP occo 352 
TESTS 1C7e2 488 
( TIME CALE 739 1546 
TIMER 1074 742 1228 
TIMVAL 177E 1539 1946 
{ TIMXT 108C 1230 
TITLE 1C7E 206 
TOTAL 1688 4393 533 
rl TOTERR 168A 440 538 
TOTNSG 16C2 562 
TRSAVE 1F18 2090 2162 
( TSTBRK 12A2 345 478 
TSTHRK1 12EC 980 
TSTARK2 12F4 977 988 
( TSTBRKS 1300 968 982 
TSTBRK4 1202 971 
TSTBRKS 12C2 976 
( TSTOU 130E 518 557 
TSToOU1 132E 1008 1021 
TSTEND ODEC 1623 1855 
( TSTMSG TEAC 479 
: TSTOP1 ocDa 382 
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1984 1987 1989 
2028 
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1131 
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1966 2039 2087 


1849 1851 1853 1954 2053 2055 2060 


1991 1993 1995 1997 1999 2012 2914 2018 
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406 4206 426° 462 465 


2194 
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TSTOP4 0000 399 
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( WASOU 1684 204 441 532 560 835 837 846 Sau C 
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wIDCONTR 180€ 2449 ea 3 = 
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t 2063 2071 2072 2074 2674 2075 2078 2079 2088 2092 2093 2094 2n96 c 
2097 2098 2100 2101 2113 2121 2122 
WRT 1A00 
: WRTEXP 1412 
t WRTEXP2 1A14 1928 | a 
X11 1916 1212 = 
‘ XI16 14CC 1092 . ( 
XI16A 1514 1198 
xT2 1526 1210 : ” 
( XI3 1948 1219 ( 
X132 14DA 1069 1109 
XI32Aa 14F6 1190 
‘ xI4 1555 1229 1231 | 
X15 1562 1233 
XIERR 1566 2208 «12134. 
( XIEXIT 1564 ; 1215 ( 
ZERO1 139A 1064 
ZERVe 13AA 2068 : 
( ZEROS 13BA 1072 ( 
ZERONE ocas 14339 1440 : 
ZROCNT 1A8C 2005 
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